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C-64 Handyscanner 6 

Het scannen van allerlei illustraties en 
ook teksten beleeft de laatste jaren een 
grote opgang. Ook voor de C-64 is scan¬ 
nen mogelijk. We bespreken de Handy- 
scan 64. 

Graphics op de 64 8 
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alweer aan het zesde deel toe. Dit maal 
begeven Michel de Boer en Hylke Spran- 
gers op het artistieke vlak: Computer- 
kunst. 
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Beschrijving van een zeer intelligente 
schaakcartridge, die uw computer tot een 
tegenstander van allure maakt. 


Oud van Goudriaan 18 

Rob Goudriaan bekeek weer een aantal 
programma’s uit het recente verleden, die 
nog steeds de moeite waard zijn. 

Tips & Trucs 64 20 

De vaste rubriek met wetenswaardighe¬ 
den voor de C-64-gebruiker. 

Basic 8 24 

Eindelijk is er een basicpakket wat de 80 
cis mode ondersteund. Johan & Johan 
vertellen u het fijne ervan. 


Voorraad 128 26 

Een bespreking van een C-128 software¬ 
pakket voor voorraad beheer. 

Amigo C cursus 28 

Na enkele maanden van absentie is de C- 
Cursus weer terug. 

Integrated GEOS 51 

Een korte cursus GEOS Integratie leert u 
de vele mogelijkheden van GEOS pro¬ 
gramma’s toe te passen. 

Geos Machinetaal(7) 39 

Alweer de zevende aflevering van deze 
serie, met ditmaal aandacht voor de lis- 
ting van QuickTop. 

Amigo Harddisk 61 

Zeker voor het meer professionele werk is 
een harde schijf voor de Amiga onont¬ 
beerlijk. 

Inzake invoer 63 


Alle ins en outs van de invoer via het toe- 
senbord met de Amiga. 



Een uitgebreid artikel over de vele moge¬ 
lijkheden die de Amiga biedt op het ter¬ 
rein van DeskTop Video. In dit artikel is 
ook een lijst opgenomen van de beschik¬ 
bare software en hun dealers. 


Redactioneel: Horizontaal en Vertikaal 

Commodore is met de Amiga de laatste tijd een richting op gegaan, vooral in Europa, die 
misschien wat minder aansluit hij wat er traditioneel in Commodore Info met betrekking tot 
de Commodore computers werd gepubliceerd. Commodore zoekt steeds meer de vertikale 
markten op, waar bijvoorbeeld met de grote Amiga's aan professionele geiuids- en beeld 
produkties wordt gewerkt. De Amiga is daar natuurlijk bij uitstek voor geschikt, en de steeds 
snellere en professionelere modellen in de 2000 serie bieden een uitstekend platform. Wij 
besteden bijvoorbeeld in dit nummer utgebreid aandacht aan de mogelijkheden van de Amiga 
op het gebied van Desktop Video. Ook op de drukke Amiga '89 show in Keulen was de 
aandacht voor professionele toepassingen opvallend. 

De hobby-gebruiker van de Amiga zal bij deze ontwikkeling niet altijd voordeel hebben, want 
de prijzen voor allerlei apparatuur kunnen aan de hoge kant zijn als ze specifiek voor de 
professionele markt zijn bedoeld. Aan de andere kant zullen de mogelijkheden van de Amiga- 
lijn enorm zijn, en welke actieve hobbyist wil niet graag met professionele apparatuur wer¬ 
ken? Commodore heeft beloofd dat de ontwikkelingen op het gebied van het bestuhngsysteem 
voor iedereen beschikbaar zuilen komen, het is nu alleen te hopen dat de hobby-Amiga niet 
helemaal wordt vergeten en er ook op het gebied van de 500 gewoon door wordt ontwikkeld. 

Jan Boers 
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Handyscanner64 


A l een groot aantal jaren wordt 
de Commodore 64 op de 
markt gebracht. Sinds jaar en dag 
wordt op grote schaal software 
voor deze computer gekopieerd. 
Dat dit voor de leveranciers die de 
legale software op de markt bren¬ 
gen steeds moeilijker wordt om dit 
op een verantwoorde wijze te 
doen is begrijpelijk. Eén van de 
leveranciers die dit goed heeft 
aangevoeld, en de software on¬ 
der goede begeleiding en service 
op de markt brengt is de firma CA- 
TRONIX uit Capelle aan de Ijssel. 
Uit hun grote assortiment voor de 
Commodore 64 hebben we dit¬ 
maal uitgekozen de Handyscan- 
ner. 

Een handyscanner lijkt op een muis, 
werkt als een muis, voelt aan als een 
muis, maar is het niet. De scanner bestaat 
uit een rij lichtjes en fotocellen welke de 
teruggekaatste informatie doorgeven aan 
de computer. Kort weg gezegd, de handy¬ 


scanner is een optische lezer die het mo¬ 
gelijk maakt plaatjes van een stuk papier 
in te lezen in een tekenprogramma. Om 
dit mogelijk te maken wordt de computer 
uitgebreid met een cartridge. Deze 
uitbreiding bevat de hardware die nodig is 
om deze uitbreiding goed te laten werken. 
Doordat dit buiten de computer om ge¬ 
beurt blijft een zeer groot gedeelte van het 
’dure’ geheugen vrij voor programma¬ 
tuur. 

Bij het uitpakken van het pakket is het 
eerste dat opvalt de prima verpakking. 
Het wordt geleverd in een grote doos 
waarbij alle kwetsbare onderdelen goed 
verpakt zitten tussen lagen schuimrubber. 
Het gehele pakket bestaat uit een aantal 
onderdelen. Een handzame scanner die 
via een kleine plug verbonden wordt met 
de cartridge. Deze Cartridge wordt ge¬ 
bruikt via de userpoort van de Commodo¬ 
re 64. Door het gebruik van een aantal 
schuitjes is het niet mogelijk dat de car- 1 
tridge er verkeerd wordt ingestoken. Let j 
er wel altijd op dat de computer en alle 
nageladen. Onder aan het tekenscherm 
komen de menu funkties. Deze zijn te ge¬ 
bruiken met de joystick of met een muis. 


randapparatuur uit staat. Bij een inge¬ 
schakelde computer is de kans groot dat 
er onderdelen worden beschadigd. De 
cartridge heeft een externe voeding. Dit is 
gedaan om de spanning die de Commodo¬ 
re zelf gebruikt niet extra te belasten. 
Deze spanning wordt verkregen door de 
meegeleverde trafo. Verder zijn daarbij 
natuurlijk ook de benodigde software en 
natuurlijk niet te vergeten de handleiding 
bijgesloten. De Handyscanner is gemaakt 
in Duitsland door de firma Scantronik. 

Het gebruik 

Zijn alle onderdelen goed aangesloten, 
dan kan de computer aangezet worden. 
De scanner is nu bedrijfs klaar. Door de 
knop boven op de scanner kort in te druk¬ 
ken wordt de scanner in de bedrijfs stand 
gezet. Dit is te zien doordat de lampjes 
wat feller gaan branden. Door nogmaals 
de knop in te drukken wordt deze hande¬ 
ling weer te niet gedaan. In deze mode- 
wordt er dan ook geen data ingelezen. 
Aan de zijkant van de scanner bevinden 
zich ook een aantal regelaars. Aan de lin¬ 
kerzijde drie (volgens de handleiding 
maar twee) en aan de rechterzijde één. 
Hiermee kunnen worden ingesteld het 
contrast, zwart/wit of een kleuren origi¬ 
neel, de breedte en het aantal dots per 
mm. (voor de Commodore 64 alleen mo¬ 
gelijk met de stand 8). Wat bij een be¬ 
paald origineel het beste resultaat geeft is 
alleen door ervaring of met experimente¬ 
ren goed te bepalen. Het geheel is nu al¬ 
leen nog niet te gebruiken, eerst moet de 
nodige software worden geladen. De soft¬ 
ware bestaat uit een diskette met daarop 
een aantal programma's. Het eerste pro¬ 
gramma is een uitgebreid teken program¬ 
ma. Met behulp van dit tekenprogramma 
kunnen beelden via de scanner worden 
ingeladen. Na het opstarten niet meteen 
de diskette uit de diskdrive halen, er 
wordt nog een gedeelte voor de scanner 

Aktiveert U nu de scanroutine, U weet 
wel door het indrukken van de knop bo¬ 
ven op de scanner, dan verschijnt op het 
scherm de vraag wat de vergrotingsfaktor 
moet zijn. Hierbij moet U ingedachte 
houden dat 100% een één op één beeld is, 
dus het origineel is gelijk aan de kopie. 
De vergrotingfaktor kan variëren van 
30% (3x zo klein) tot 300% (3x zo groot). 
Deze instelling heeft ook invloed op het 
aantal beeldpunten dat wordt gebruikt. 
Bij een vergroting van 300% wordt de 
maximale breedte gebruikt, dit is 640 
beeldpunten. Bij 100% is dit 200 punten. 
Na het ingeven van de faktor wordt het 
gehele scherm blauw. Er wordt nu ge¬ 
wacht op data die door de scanner worden 
doorgegeven. Eerst wordt de scanner op 
de juiste plaats gezet, dit is goed te zien 
door het venster. Aktiveren. en langzaam 
de scanner verschuiven, ongeveer 4 cm 
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per seconden. Tijdens deze handeling is 
er op het beeldscherm een flikkering te 
zien. Hierna moet er even worden ge¬ 
wacht, de data wordt vertaald met een 
snelheid van 400.000 Bits per seconde. 
Het geheel duurt bij maximale vergroting 
ongeveer 20 seconden. Het menu bestaat 
uit een aantal blokjes met daarin ikonen. 
Ikonen zijn grafische symbolen die een 
funktie voorstellen. Gekozen kan er wor¬ 
den door middel van de muis of de joys¬ 
tick. Dit gebeurt door het aanwijzen van 
het juiste blokje en dan op de knop te 
drukken. De balk onderin het scherm is 
het eerste menu, dit is echter nog niet al¬ 
les. Handyscan heeft nog meer van deze 
menubalken., in het totaal zelfs drie stuks. 
Met de muis kiest U deze menubalken 
door het indrukken van de linker muis 
knop. Met de joystick gebeurt dit door he¬ 
lemaal onder aan het scherm te gaan staan 
en dan op de vuur knop te drukken. Voor 
mensen die veel met een muis werken kan 
hier iets belangrijks zijn opgevallen, 
meestal zitten de knop funkties precies 
anders om. Ook hieraan is gedacht, de ge¬ 
bruiker kan in dit geval aangeven dat de 
muis knoppen precies andersom moeten 
werken. De gevorderde gebruiker kan al 
deze menu funkties veel sneller uitvoeren 
door het indrukken van bepaalde toets- 
combinaties. Dit werkt, zeker voor de op¬ 
ties die regelmatig worden gebruikt, vele 
malen sneller. Het is ondoenlijk om alle 
funkties van het tekenprogramma hier op 
te noemen. Het programma doet niet on¬ 
der voor vele, vaak dure, concurrenten. 
Scrollen, zoomen, spiegelen, vergroten, 
koördinaten gebruiken, raster moge¬ 
lijkheden alles is aanwezig. Het gehele 
beeldscherm is 640 bij 400 beeldpunten. 
Dit zijn vier beeldschermen. Hier kan 
door middel van de ikonen door heen ges- 
crold worden, dit gaat heel langzaam, 
sneller is het door het indrukken van een 
van de toetsen 1-4, waarbij 1 linksboven 
is en 4 recht-onder. Het beeld springt nu 
naar het juiste scherm. Het geheel kan 
worden bekeken door het indrukken van 
de overzichts ikoon. Een groot voordeel 
vindt ik dat uit het tekenprogramma, zon¬ 
der dat een reeds getekend beeld verloren 
gaat, er disk funkties kunnen worden uit¬ 
gevoerd. Bijvoorbeeld tijdens het werken 
blijkt dat de schijf vol is, er kan nu tussen 
door een schijf worden geformatteerd. 
Bepaalde onderdelen van een tekening 
zijn er uit te halen en deze als stempel te 
bewaren. Een goed voorbeeld hiervan is 
de file, die ook op de meegeleverde disk 
staat “Analog.bs”. Hier zijn onderdelen 
van een elektrisch schema als los staande 
onderdelen weergegeven. Door het op¬ 
pakken , spiegelen, vergroten enz. is het 
mogelijk geworden complexe elektrische 
schema’s te tekenen. Nu is het zelfs mo- i 
gelijk hier teksten bij te schrijven. Een 
hulpmiddel om alles hier goed op zijn 



plaats te zetten is het raster. Op deze ma¬ 
nier is ook schema 1 getekend. Het raster 
wordt niet mee afgedrukt, het is slechts 
een (onmisbaar) hulpmiddel. 

Printen 

Het print onderdeel is een zeer belangrijk 
onderdeel bij het tekenprogramma. Dit is 
meestal de zwakste schakel, is de printer 
niet goed, of niet goed afgesteld, dan kan 
ook het uiteindelijke resultaat niet goed 
zijn. Hiervoor staat er op de programma 
diskette een printer aanpassings program¬ 
ma. Hier in kunnen alle specifieke gege¬ 
vens van onze printer worden aangege¬ 
ven. Dat een 24 naalds printer meestal het 
beste resultaat geeft mag als bekend wor¬ 
den verondersteld. Dit gaat alleen op als 
de software deze driver ondersteund, en 
dat is hier gelukkig wel het geval. Ook de 
papier lengte wordt hier aangepast. De in¬ 
stellingen worden naar de disk wegge¬ 
schreven, Alle Commodore printers en 
Epson compatibel printers worden onder¬ 
steund. Pas bij het printen van een teke¬ 
ning worden deze gegevens van de disk 
geladen. Deze instellingen, zij staan in de 
file “HSCN+” kunnen ook op de datadisk 
worden weggeschreven. Dus eerst aan¬ 
passen en daarna gaan tekenen. De varia¬ 
bele instellingen, de kantlijnen, de line- 
feed en de afdruk kwaliteit moeten wor¬ 
den ingegeven na de keuze printen. 

Pagefox 

Het meest uitgebreide Desk Top Publis- 
hing pakket voor de Commodore 64 is 
ongetwijfeld Pagefox. Ook dit software j 
pakket wordt door CATRONIX geleverd 
(299,—). Een goede software leveran¬ 
ciers stapt niet van zijn produktlijn af en 
dus is de Handyscanner compatibel met 


pagefox. Dit houdt in dat de scanner zon¬ 
der meer gebruikt kan worden in het DTP 
pakket. Dit maakt het werken met dit pak¬ 
ket er veel eenvoudiger op, tekeningen 
kunnen op papier worden gemaakt en 
probleem loos tussen de tekst worden op¬ 
genomen. 

Conclusie 

Pc gebruikers zijn er intussen al aan ge¬ 
wend, vele computeraars zouden er niet 
meer buiten kunnen, tekeningen eenvou¬ 
dig naar de computer over te brengen. Tot 
een half jaar terug was dit voor de ama¬ 
teur niet te betalen. De geheugen ruimte 
van de Commodore 64 was tot nog toe te 
klein om deze scanners ook hier te ge¬ 
bruiken. Uit Duitsland is dan toch nog een 
oplossing gekomen in deze Handys¬ 
canner. Catronix heeft met het uitbrengen 
van deze scanner niet alleen een prima 
stukje hard- software op de Nederlandse 
markt gebracht, maar ook voor de eerder 
geleverde software is dit een prachtige 
aanvulling. 

Prijsf 599,— inclusief B.T.W. 
Leverancier: Catronix Capelle 
aan de Ijssel 

Inlichtingen: 010-4507696 
RBG 
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Graphics 
op de 64 

Deel 6: 

ComputerKunst 

W aren computers vroeger al¬ 
leen getallenkrakers, die een 
eindeloze reeks getallen als uit¬ 
voer leverden; tegenwoordig zijn 
computers uitgerust met high-re- 
solution schermen, waarop de 
prachtigste computer graphics 
gemaakt kunnen worden. Door 
deze ontwikkeling is de computer 
een nieuw medium voor kunste¬ 
naars geworden. Met dit nieuwe 
medium kunnen geheel nieuwe 
vormen van kunst gemaakt wor¬ 
den, zoals bijvoorbeeld bewegen¬ 
de kunst. 

In de vorige afleveringen hebben we een 
basis gelegd voor het werken met grafi¬ 
sche objecten op de Commodore 64. 
Deze afleveringen waren enigszins theo¬ 



retisch van aard, met name de afleverin¬ 
gen over high resolution. Ter afwisseling 
van de theorie zullen we in deze afleve¬ 
ring een begin maken met Computer¬ 
Kunst. Daarbij spitsen we ons toe op het 
maken van grafische plaatjes op het 
scherm. De figuren die op het scherm 
worden getekend, worden allemaal aan 
de hand van wiskundige formules bere¬ 
kend. Het is echter niet onze bedoeling 
om alle wiskundige formules tot op de 
bodem uit te werken. We willen meer la¬ 
ten zien wat er allemaal mogelijk is met 
computer graphics. Het uitgebreid uit¬ 


werken van de wiskundige formules zou 
het artikel te lang en onleesbaar maken. 
We zullen vooral kleine programma’s ge¬ 
ven, waarmee geëxperimenteerd kan 
worden. 

Computer-Kunst of kunde 

We hebben deze aflevering wel zo reso¬ 
luut de ondertitel ComputerKunst meege¬ 
geven, maar de vraag rijst natuurlijk on- 
middelijk of het maken van computergra- 
phics wel onder de naam Kunst mag wor¬ 
den gepresenteerd. Sommige mensen vin¬ 
den computercreaties wel degelijk kunst 
met een grote K. Zij kunnen misschien 
hun creatieve gedachten juist door middel 
van de computer omzetten in beelden. We 
denken in dit geval bijvoorbeeld aan com¬ 
puteranimaties. Andere mensen vinden 
een computer juist creatief-beperkend 
werken. Ook het op het scherm doen ver¬ 
schijnen van, weliswaar vaak de prachig- 
ste figuren zoals fractals, verstaan zij niet 
onder kunst. Ook voor dit standpunt is 
wat te zeggen. Is het immers niet vaak zo, 
dat achter de verschillende kleuren en 
vormen gewoon wiskundige formules 
schuil gaan? In dit geval kan dan mis¬ 
schien beter van ComputerKunde gespro¬ 
ken worden. Wel, deze discussie is haar 
einde nog niet genaderd. Wij zullen u ver¬ 
der geen mening opdringen over het al 
dan niet kunst zijn van computercreaties. 
In ieder geval, met de volgende omschrij¬ 
ving van kunst: Kunst omvat alle dingen 
die door mensen gemaakt zijn en boven¬ 
dien mooi zijn, vinden wij dat de onderti¬ 
tel het gebodene dekt. Maar let wel, de 


Omzetting Sirnon 

s Basic naar Hires Routines 

Simon's Basic 

Hires Routines 

HIRES X, Y 

POKE 53265,PEEK(53265) OR 32 
POKE 53272,PEEK(53272) OR 8 
SYS 49264:SYS 49225,Y,X 

PLOT X, Y,MODE 

SYS 49162,X,Y,MODE 

LINE X1,Y1,X2,Y2, 
MODE 

SYS 49186, XI, Y1,X2,Y2, MODE 

TEST (X,Y) 

USR(X), Y 

PAINT X, Y,MODE 

SYS 49240,X,Y,MODE 


Fig. 1 
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bovenstaande omschrijving van kunst is 
zuiver subjektief. Omdat het makkelijk 
praat, zullen we het verder hebben over 
Computerkunst. 

Computerkunst omvat natuurlijk een he¬ 
leboel dingen. Veel van deze dingen of 
onderdelen zullen wij niet behandelen, 
simpelweg omdat de Commodore 64 
daarvoor niet rekenkrachtig genoeg is. 
Denk hierbij bijvoorbeeld aan complexe 
animaties. Ómdat computerkunst zoveel 
omvattend is, zullen we de verschillende 
onderdelen verdelen over een paar afleve¬ 
ringen. Er komt bijvoorbeeld nog een af¬ 
levering over fractals. In deze aflevering 
zullen we het o.a. hebben over Lissajous 
figuren, sinuskrommen en de boom van 
Pythagoras. 

Alle programma’s zijn overigens ge¬ 
schreven in Simons’s Basic. Mocht u 
deze of een soortgelijke uitbreiding niet 
hebben, dan kunt u het applikatie pro¬ 
gramma gebruiken dat in No 6 bij “Gra¬ 
phics op de 64" staat afgedrukt. Met be¬ 
hulp van de tabel in figuur 1 kunt u alle 
listings eenvoudig omzetten, zodat u ze 
samen met de Hires Routines kunt gebrui¬ 
ken. In de eerste kolom van deze tabel 
staan de Simon’s Basic instructies met 
hun parameters. Bij elk van deze instruc¬ 
ties staat in de tweede kolom in welke in¬ 
structief) u de Simon’s Basic instructie 

moet veranderen. In alle listings moet u 
voor {pi 1 gewoon de Griekse letter ge¬ 
bruiken. 


Krommen 

We zullen ons eerst gaan bezig houden 
met wiskundige krommen. Wiskundige 
krommen kunnen we op veel manieren 
verkrijgen. Door het werken met poolco¬ 
ördinaten kunnen we bijvoorbeeld betrek¬ 
kelijk makkelijk cirkels en spiralen teke¬ 
nen. We beperken ons in dit artikel echter 
tot krommen waarvan de funktie in para- 
metervorm is opgesteld. Dit houdt in dat 
de x- en y-coordinaat als funktie van een 
derde parameter, bijvoorbeeld t, wordt 
uitgedrukt. De x- en y-coordinaat zijn dan 
de gewone coördinaten op het beeld. (0,0) 
Linksboven en (319,199) rechtsonder, t is 
verder een variabele die tussen twee vast¬ 
gestelde grenzen loopt. Door t steeds te 
variëren, worden steeds andere coördina¬ 
ten gevonden. Vorige aflevering hebben 
we eigenlijk al een voorbeeld van een pa- 
rametervorm gezien bij het tekenen van 
een cirkel. Toen hadden we de volgende 
funktie: 

x = r * cos(t) 
y = r * sin(t) 

Hierbij is r de straal van de cirkel in 
pixels. Door in de onderste vergelijking 
voor y een andere straal te kiezen dan in 
de bovenste vergelijking, kan een ellips 
verkregen worden. De variabele t laten 
we lopen van 0 tot 360. t Stelt dan het 
aantal graden voor. Het programma voor 
het tekenen van een cirkel hebben we u de 
vorige aflevering al gegeven, dus dat 
doen we nu niet weer. 

Lissajous figuren 

We hebben een zeer eenvoudige parame- 
tervorm gezien in de vorige paragraaf. 


We gaan het nu hebben over funkties met 
de volgende parametervorm: 

x = al*sin(fl*t+vl) + a2*cos(f2*t+v2) 
y = a3*sin(f3*t+v3) + a4*cos(f4*t+v4) 

Deze parametervorm lijkt op het eerste 
gezicht tamelijk ingewikkeld. De x en y 
worden allebij bepaald door een sinus en 
een cosinus, al tot en met a4 zijn de am¬ 
plitudes. fl tot en met f'4 bepalen de fre¬ 
quentie en vl tot en met v4 bepalen de 
verschuiving van de sinus of cosinus. Fi¬ 
guren die beschreven worden door bo¬ 
venstaande formule, worden Lissajous fi¬ 
guren genoemd. Deze figuren zijn ont¬ 
dekt door de Franse fysicus Jules-Antoine 
Lissajous (1822 - 1880). We hebben in de 
inleiding gezegd dat we niet te diep op de 
wiskundige formules achter de verschil¬ 
lende figuren in zullen gaan. Dat doen we 
dan ook niet. We laten de formule zoals 
ze is, en zullen nu naar het programma 
gaan kijken die de Lissajous figuren op 
het beeld tekenen. Het volgende program¬ 
ma in Simons’s Basic tekent willekeurige 
Lissajous figuren op het beeld: 


5 

rem Lissajous figuren 


10 

prinfgeef al, a2, a3 
a4 " ; 

en 

20 

input al,a2,a3,a4 


30 

prinf’geef fl, f2, f3 
f4 " ; 

en 

40 

input fl, f2,f3,f4 


50 

print"geef vl, v2, v3 
v4 " ; 

en 

60 

input vl, v2, v3, v4 


70 

hires 0,1 


100 

for gr=0 to 360 


110 

t=gr*{pi}/180 


120 

x=al*sin(fl*t+vl)+a2*cos( 
f2*t+v2) 


Waarden 

voor programma 

L: Lissajous 

figuren 


al 

a2 

a3 

a4 

fl 

f2 

f3 

f4 

vl 

v2 

v3 

v4 

100 

0 

100 

0 

9 

0 

10 

0 

0 

0 

45 

0 

40 

60 

40 

60 

6 

5 

5 

6 

0 

1 

1 

0 

30 

70 

30 

70 

6 

5 

5 

6 

0 

0 

0 

0 

10 

90 

50 

50 

2 

4 

8 

16 

2 

3 

4 

6 


Progr. : 

2: Sinuskrommen 


Progr. 3: Dr. lijnen 

al 

a2 

a3 

fl 

f2 

f3 

: 

le 

dh 

tl 

10 

10 

10 

4 

1 

1 


5 

144 

3 

25 

4 

4 

2 

4 

8 


4 

70 

2 

20 

5 

5 

8 

9 

1 


4 

125 

2 

12 

8 

8 

8 

1 

1 


3 

92 

1 

100 

1 

1 

4 

6 

6 


100 

145 

0 






. 


100 

72 

-3 






Fig.2 

3 

258 

1 
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130 y=a3*sin(f3*t+v3)+a4*cos( 
f4*t+v4) 

140 x=int(x+160) 

150 y=int(y+100) 

160 if gr=0 then xl=x:yl=y 
170 line xl,yl,x,y,l 
180 xl=x:yl=y:next 
190 goto 190 

In de eerste regels vanaf regel 10 moet u 
eerst de verschillende variabelen invoe- 


Fig. 3 

ren. In regel 70 wordt het hires aangezet 
met HIRES 0,1. In regel 100 wordt een 
FOR-NEXT loop gedefinieerd van 0 tot 
360. U kunt dit beschouwen als de varia¬ 
bele GR die van 0 tot 360 graden loopt. 
Omdat de computer niet met graden maar 
met radialen rekent, moet dit worden om¬ 
gerekend. Dit gebeurt in regel 110. Daar¬ 
na worden de x- en y-coordinaat volgens 
de gegeven parametervorm en de ingege¬ 
ven variabelen berekend. Bij deze coördi¬ 
naten tellen we nog de coördinaten van 
het midden van het scherm op, zodat de 
figuur mooi in het midden van het scherm 
komt te staan. Dit gebeurt in regel 140 en 
150. Als laatste zou u natuurlijk verwach¬ 
ten dat er een pixel op het scherm werd 
aangezet. We trekken echter een lijn van 
de berekende coördinaten naar de coördi¬ 
naten die in de vorige iteratie zijn bere¬ 
kend. Dit omdat er dan geen gaten in de 
figuur vallen. Bij de eerste iteratie zijn er 
echter geen vorige coördinaten berekend. 
Deze uitzondering wordt opgevangen 
met een IF-THEN in regel 160. 

Het programma bevat echter een fout. Als 
de x- of y-coordinaat buiten het beeld 
valt, dan stopt het programma met een 
foutmelding als de lijn wordt getekend. 
Op deze situatie valt natuurlijk gemakke¬ 
lijk te testen met een IF-THEN. De reden 
dat we dit niet hebben gedaan is dat het 
programma dan een stuk langzamer gaat 
lopen. Een manier om dit te voorkomen is 
om bij het invoeren van de a variabelen de 
volgende regels in acht te nemen: (al + 
a2) 160 en (a3 +a4) 100. 

Als laatste wilt u natuurlijk weten met 
welke waarden voor de a, f en v variabe¬ 
len u mooie figuren krijgt. In figuur 2 
staat een tabel met waarden. Door deze 
waarden in te typen krijgt u mooie Lissa- 
jous figuren op het scherm. Wij raden u 
aan om verder zelf te gaan experimente¬ 


ren met de waarden. De uitkomsten zul¬ 
len vaak verrassend zijn. 

Sinus krommen 

We gaan een stapje verder, uitgaande van 
de parametervorm voor het maken van 
Lissajous figuren. Bekijk eens de volgen¬ 
de parametervorm: 

x = r * a2 * sin(f2 * t) 
y = r * a3 * cos(f3 * t) 
r = al * sin(fl * t) 

U ziet dat we een extra variabele hebben 
geïntroduceerd, namelijk r. Dit is weder¬ 
om een sinus. De x- en y-coordinaat wor¬ 
den met deze r vermenigvuldigd. De r is 
als het ware een soort variabele amplitude 
voor de x- en y-coordinaat. Met boven¬ 
staande parametervorm kunnen we sinus 
bloemen en dergelijke tekenen. Het pro¬ 
gramma voor het implementeren van de 
parametervorm loopt voor het grootste 
deel parallel met het vorige programma. 
Hier komt het programma: 



5 rem sinus krommen 
10 prinf'geef al, a2 en a3"; 

20 input al,a2,a3 
30 prinf'geef fl, f2 en f3"; 

40 input f1,f2,f3 
70 hires 0,1 
100 for gr=0 to 360 
110 t=gr*{pi}/180 
115 r=al*sin (fl*t) 

120 x=r*a2*sin(f2*t) 

130 y=r*a3*cos(f3*t) 

140 x=int(x+160) 

150 y=int(y+100) 

160 if gr=0 then xl=x:yl=y 
170 line xl,yl,x,y,l 
180 xl=x:yl=y:next 
190 goto 190 

Ook bij dit programma kan de error voor¬ 
komen die we bij het vorige programma 
hebben beschreven. De gebruiker kan we¬ 
derom de fout voorkomen dat de x- of y- 
coordinaat buiten het beeld valt. Daar¬ 
voor moet de gebruiker de volgende re¬ 
gels in acht nemen bij het invoeren van de 
variabelen: (al * a2) 160 en (al * a3) 100. 

U heeft inmiddels wel opgemerkt dat er 
geen v variabele in de parametervorm zit. 
Deze v was voor de verschuiving van de 
sinus of cosinus. U kunt zelf het program¬ 


ma aanpassen om deze variabele in te 
brengen. In figuur 2 staan waarden die u 
kunt uitproberen voor dit programma. 

We hebben voor de variabele r nu een 
standaard sinus genomen. Er zijn ook an¬ 
dere leuke funkties te nemen voor r, om 
nog leukere figuren te maken. Als voor¬ 
beeld noemen we r = al * abs(sin(fl * t)) 
+ 50. Ook leuk is r = al * abs(cos(2 * 
sin(fl * t))). Ook hiermee kunt u naar har¬ 
te lust experimenteren. In figuur 3 staat 
een sinus kromme die met het boven¬ 
staande programma is getekend. De waar¬ 
den voor al, a2, a3, fl, f2 en f3 zijn res¬ 
pectievelijk 100, 1, 1, 11,6 en 6. 

Draaiende lijnen 

We gaan nu iets anders bekijken. We 
gaan lijnen trekken aan de hand van wat 
ingevoerde variabelen. De eerste variabe¬ 
le le definieert de lengte van de eerste lijn 
die getrokken wordt. De variabele tl defi¬ 
nieert de lengte toe- of afname van de lij¬ 
nen die worden getrokken. We geven een 
voorbeeld. De lenge van de eerste lijn is 
bijvoorbeeld le=5. Als tl nu 4 is dan wordt 
de tweede lijn getekend met lengte 
5+4=9, de derde lijn heeft lengte 9+4=13 
enz. Als derde variabele nemen we dh die 
de draaihoek van de te tekenen lijnen de¬ 
finieert. We gaan nog even door op het 
gegeven voorbeeld, met daarbij dh=45. 
Voordat we precies beschrijven wat er ge¬ 
beurt op het scherm, moeten we nog twee 
begin constanten definiëren. We nemen 
als startpunt van de eerste lijn het punt 
(160, 100). Als beginhoek van de eerste 
lijn nemen we 90 graden. De eerste lijn 
heeft dus als beginpunt (160, 100) en 
loopt onder 90 graden t.o.v. de x-as. Het 
eindpunt is dan te berekenen als de lengte 


Fig. 4b 

van de lijn bekend is (le). Het eindpunt 
nemen we als beginpunt van de tweede 
lijn. de lengte le wordt verhoogd met tl. 
We nemen nu als hoek 90+dh=135. Het 
eindpunt van de tweede lijn kan nu bere¬ 
kend worden en de lijn wordt vervolgens 
getekend. De derde lijn wordt getekend 
onder een hoek 135+dh= 180. Dit gaat zo 
door totdat de x- of y-coordinaat van een 
berekend eindpunt buiten het beeld valt. 
Het volgende programma implementeert 
het gegeven algoritme. 

5 rem draaiende lijnen 
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10 input"geef lengte 
lijnstuk";le 

20 inpuf'geef draaihoek";dh 
30 inpuf'geef toename 
lijnstuk";tl 
70 ho=90:hires 0,1 
100 t=ho*{pi}/180 
110 x=int (le*sin (t)+160) 

120 y=int(le*cos(t)+100) 

130 if x or x319 or y or yl99 
then 190 

140 if ho=90 then xl=x:yl=y 

150 line xl,yl,x,y,l 

160 xl=x:yl=y 

170 ho=ho+dh:le=le+tl 

180 goto 100 

190 goto 190 

U ziet dat het bovenstaande programma 
op zich redelijk makkelijk in elkaar zit. 
De coördinaten van het eindpunt van de 
lijn worden steeds berekend met een sinus 
en een cosinus. Met het bovenstaande 
programma zijn echt leuke figuren te ma¬ 
ken. Ook voor dit programma staan wat 
waarden in figuur 1. Figuur 4 laat een fi¬ 
guur zien die met dit programma gete¬ 
kend is. 


STELLING VAN PYTHAGORAS 



f* 


Opp. A = Upp. B + Opp. C 
a ^ = b"Z +• c' 2 Fig. 5 

Lissajous slang 

De tot nu besproken vormen van compu- 
terkunst waren statisch van aard. De com¬ 
puter leent zich echter ook zeer goed voor 
het maken van bewegende kunst. Met be¬ 
hulp van de eerder besproken Lissajous 


figuren gaan we nu bewegende kunst ma¬ 
ken. 

Bij het tekenen van Lissajous figuren zult 
u wel gezien hebben dat vanuit een be¬ 
paald punt een vloeiende lijn wordt ge¬ 
trokken en dat deze lijn tenslotte eindigt 
in het beginpunt. We gaan nu echter geen 
lijn tekenen door de berekende coördina¬ 
ten, maar laten acht sprites langs deze co¬ 
ördinaten bewegen. We laten de eerste 
sprite vertrekken vanuit het beginpunt; 
als deze sprite een paar stappen heeft ge¬ 
daan dan laten we een volgende sprite 
vertrekken. Dit doen we tot alle acht spri¬ 
tes op het scherm staan. Er beweegt nu 
een ’slang’ van sprites langs een mooie 
baan over het scherm. 

Omdat Basic niet snel genoeg is, hebben 
we een machinetaal programma gemaakt 
dat de Lissajous ’slang’ over het scherm 
laat glijden. De listing is listing 1 (aan het 
eind van het artikel). Deze listing moet u 
eerst intikken, saven en runnen. Het pro¬ 
gramma heeft voor zijn berekeningen 
twee tabellen met coördinaten nodig. Een 
tabel met alle x-coordinaten en een met 


LISTING 1 

4 rem 

5 rem * lissajous slang * 

6 rem ******************* 

7 rem 

10 for i= 49152 to 49532 
20 read a:s=s+a:poke i,a:next 
30 if s53010 then print"fout in data!" 
400 data 32,116,193,140,128,193,141,129 
410 data 193,32,116,193,140,130,193,141 
420 data 131,193,32,116,193,140,125,193 
430 data 141,126,193,32,116,193,140,127 
440 data 193,169,0,141,32,208,141,33 
450 data 208,141,132,193,141,133,193,141 
460 data 134,193,141,135,193,32,68,229 
470 data 169,255,162,63,157,64,3,202 
480 data 16,250,162,255,141,21,208,162 
490 data 7,24,169,13,157,248,7,138 
500 data 105,2,157,39,208,202,16,242 
510 data 173,133,193,72,173,132,193,72 
520 data 173,135,193,72,173,134,193,72 
530 data 162,14,173,18,208,201,50,176 
540 data 249,24,173,132,193,105,0,133 
550 data 251,173,133,193,105,112,133,252 
560 data 160,0,177,251,24,105,95,157 
570 data 0,208,24,173,134,193,105,0 
580 data 133,251,173,135,193,105,128,133 
590 data 252,177,251,24,105,70,157,1 
600 data 208,173,132,193,24,109,125,193 
610 data 141,132,193,173,133,193,109,126 
620 data 193,141,133,193,173,133,193,205 
630 data 129,193,144,29,208,8,173,132 
640 data 193,205,128,193,144,19,56,173 
650 data 132,193,237,128,193,141,132,193 
660 data 173,133,193,237,129,193,141,133 
670 data 193,173,134,193,24,109,125,193 
680 data 141,134,193,173,135,193,109,126 
690 data 193,141,135,193,173,135,193,205 
700 data 131,193,144,29,208,8,173,134 
710 data 193,205,130,193,144,19,56,173 
720 data 134,193,237,130,193,141,134,193 
730 data 173,135,193,237,131,193,141,135 
740 data 193,202,202,48,3,76,106,192 
750 data 104,24,105,1,141,134,193,104 


760 data 105,0,141,135,193,205,131,193 
770 data 208,16,173,130,193,205,134,193 
780 data 208,8,169,0,141,134,193,141 
790 data 135,193,104,24,105,1,141,132 
800 data 193,104,105,0,141,133,193,205 
810 data 129,193,208,16,173,128,193,205 
820 data 132,193,208,8,169,0,141,132 
830 data 193,141,133,193,173,127,193,133 
840 data 2,198,2,208,252,165,197,201 
850 data 60,240,3,76,88,192,169,0 
860 data 141,21,208,96,32,253,174,32 
870 data 158,173,76,247,183 

LISTING 2 

4 rem ************************ 

5 rem * bereken coördinaten * 

6 rem * voor lissajous-slang * 

7 rem ************************ 

8 rem 

10 def fnx(t)=sin(2*t)*cos (5*t) 

20 def fny (t) =sin (t) *cos (3*t) 

30 sx=0 :for i=0 to 2*{pi) step {pi}/800 
40 poke 28672+sx,fnx(i)*80+80:sx=sx+l 
50 next 

60 sy=0 :for i=0 to 2*{pi) step {pi}/800 
70 poke 32768+sy, fny(i)*80+80:sy=sy+l 
80 next 

90 print "xstap =";sx 
100 print "ystap =";sy 


Commodore Info 8/89 


11 




























Fig. 6 


y-coordinaten van de Lissajous figuur 
waarlangs de sprites zich voortbewegen. 
De eerste tabel begint op adres 28672 en 
de tweede op 32768. De toegestane x- en 
y-coordinaten zijn waarden tussen 0 en 
255. Om nu een Lissajous slang te maken, 
moet u eerst de twee tabellen vullen. Dit 
kunt u met listing 2 doen. In regel 10 en 
20 staan de functies voor de x- en y-coor- 
dinaat. Hier kunt u eventueel zelf een an¬ 
dere functie invullen. In regels 20 tot 50 
worden alle x-coordinaten berekend en in 
regels 60-80 alle y-coordinaten. De beide 
FOR-NEXT lussen hebben een STEP van 
pi/800. Deze waarde kunt u eventueel 
veranderen. Hoe groter de waarde, hoe 
sneller de slang zal bewegen; de bewe¬ 
ging wordt dan wel minder vloeiend. Het 
programma drukt na enkele minuten twee 
waarden af, t.w. xstap en ystap. Listing 2 
retourneert de waarden 1601 en 1601. Nu 
kunt u het machinetaal programma star¬ 
ten. Dit doet u met de volgende instructie: 

SYS 49152,xstap,ystap.tussen 
ruimte,snelheid 

Voor xstap en ystap moeten de waarden, 
die de computer u gegeven heeft, worden 
ingevuld, tussenruimte bepaalt hoeveel 
ruimte er tussen twee opvolgende sprites 
in de slang zit (hoe groter de waarde van 
tussenruimte, hoe verder sprites van el¬ 
kaar zitten), snelheid bepaalt hoe snel de 
slang beweegt (l=snel, 255=langzaam). 
Om nu de slang langs de baan, die door 
listing 2 berekend is, te bewegen, tikt u 
SYS 49152,1601,1601,10,1 in. Als het 
goed is beweegt de slang nu over het 
scherm. U kunt de slang stoppen door op 
de spatiebalk te drukken. Met de waarde 
voor de tussenruimte kunnen we leuke ef¬ 


fecten krijgen. Probeert u maar eens 792 
i.p.v. 10 voor de tussenruimte. 

Om een andere baan van de slang te krij¬ 
gen, moeten we regels 10 en 20 verande¬ 
ren. Verandert u deze maar eens in: 

10 def fnx(t)=sin(10*t+{pi}/3) 

20 def fny(t)=sin(9*t) 

Run nu het programma en tik daarna SYS 
49152,1601,1601,10,200 in. De slang be¬ 
weegt zich nu anders dan in het eerste 
voorbeeld. Een aantal leuke waarden voor 
tussenruimte zijn: 42, 83 en 166 

Boom van Pythagoras 

Ongeveer 500 v. Chr. formuleerde de be¬ 
roemde Griekse wiskundige, Pythagoras, 
de stelling, die nu bekend staat als ’de 
stelling van Pythagoras’. Deze stelling 
zegt, dat in een rechthoekige driehoek het 
kwadraat van de schuine zijde gelijk is 
aan de som van de kwadraten van de an¬ 
dere twee zijden. Als we de schuine zijde 
nu aanduiden met de letter ’a’ en de twee 
overige zijden met de letters ’b’ en ’c’ dan 
ziet de stelling van Pythagoras er in wis¬ 
kundige notatie als volgt uit: a~2 = b~2 + 
c~2. In deze vorm zult u de stelling waar¬ 
schijnlijk op de middelbare school ge¬ 
leerd hebben. (Had u toen kunnen denken 
dat u ooit nog eens iets leuks met de stel¬ 
ling van Pythagoras zou doen?). Pythago¬ 
ras formuleerde zijn stelling echter op een 
iets andere wijze. We kunnen dit het best 
aan de hand van een plaatje laten zien. In 
figuur 5 staat een rechthoekige driehoek, 
met zijden a, b en c. Op elk van deze zij¬ 
den is een vierkant getekend. Pyhtagoras 
formuleerde de stelling als volgt: de op¬ 
pervlakte van vierkant A is gelijk aan de 
oppervlakte van vierkant B plus de opper¬ 
vlakte van vierkant C. 


Figuur 5 is dus de grafische voorstelling 
van de stelling van Pythagoras. Met deze 
grafische voorstelling gaan we nu een 
leuke figuur tekenen. Op de vierkanten B 
en C tekenen we een rechthoekige drie¬ 
hoek. Op deze driehoek tekenen we ver¬ 
volgens twee vierkanten en op elk van 
deze vierkanten tekenen we dan weer een 
driehoek. Als we zo een tijdje doorgaan, 
ontstaat het figuur dat in figuur 6 gete¬ 
kend is. Deze figuur lijkt een beetje op 
een boom en wordt daarom ’de boom van 
Pythagoras’ genoemd. Deze boom zou u 
natuurlijk gewoon met een potlood en een 
lineaal op papier kunnen tekenen. Dit is 
echter een tijdrovend karwei, dat met be¬ 
hulp van de computer veel sneller gedaan 
kan worden. In figuur 6 hebben alle drie¬ 
hoeken steeds twee basishoeken van 45 
graden; hierdoor ontstaat een symetrische 
boom. (de basishoeken zijn de hoeken die 
grenzen aan de schuine zijde). Door niet 
twee hoeken van 45 graden, maar bij¬ 
voorbeeld een hoek van 60 en van 30 gra¬ 
den te nemen, ontstaat een scheef ge¬ 
groeide boom. Het algoritme om de boom 
van pythagoras op de computer te tekenen 
is helaas nogal ingewikkeld. We geven 
daarom zonder uitleg de Simon’s Basic 
listing van het programma om bomen van 
Pythagoras te tekenen. 


20 

rem * boom van pythagoras 
★ 

50 

input "grootte van linker 
basishoek";al 

60 

input "hoeveel 
iteraties";m 

70 

al=al/180*{pi} 

80 

input "lengte van 
vierkant";1 

90 

input "coördinaten van 
linker basishoek";xl,yl 

100 

x2=xl+l:y2=yl:h={pi}/2 

110 

hires 0,15 

120 

gosub 220 

130 

poke 198,0:wait 198,1 

140 

end 

150 

rem *** teken vierkant 

160 

line xl,yl,x2,y2,1 

170 

line xl,yl,x3,y3,1 

180 

line x2,y2,x4,y4,1 

190 

line x3, y3,x4,y4,1 

200 

return 

210 

rem *** teken boom 

220 

i=i+l 

230 

xl (i)=xl:yl(i)=yl:x2(i) = 
x2 :y2 (i) =y2 :h (i) =h 

240 

gosub 350:gosub 160 

250 

if i=m then 320 

260 

xl=x3:yl=y3:x2=x5:y2=y5: 
xd(i)=x4:yd(i)=y4 

270 

h=h+al:if h2*{pi} then 
h=h-2*{pi} 

280 

gosub 220 

290 

xl=x2:yl=y2:x2=xd(i):y2=y 
d(i) 

300 

h=h(i)-({pi}/2-al):if 
h2*{pi} then h=h+2*{pi} 

310 

gosub 220 

320 

xl=xl(i):yl=yl(i):x2=x2( 
i):y2=y2(i) 
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330 

i=i-l 

340 

return 

350 

l=sqr((xl-x2)~2+(yl-y2)~ 
2) 

360 

x3=xl+l*cos(h):y3=yl-l* 
sin(h) 

370 

x4=x2+l*cos(h):y4=y2-l*s 
in (h) 

380 

x5=x3+l*cos(al)*cos(al+ 
h-{pi}/2) 

390 

y5=y3-l*cos(al)*sin(al+ 
h-{pi}/2) 

400 

return 


Het programma vraagt eerst om de groot¬ 
te van de linker basishoek. Deze grootte 
moet in graden worden opgegeven en 
moet tussen 0 en 90 graden liggen. De 
grootte van de rechterbasishoek is dan 
automatisch 90-grootte. 

Als tweede vraagt de computer om het 
aantal iteraties. Dit getal bepaalt hoe 
groot de boom wordt. In de eerste iteratie 
wordt het onderste vierkant (de stam) van 
de boom getekend. Tijdens de tweede ite¬ 
ratie wordt op dit vierkant een driehoek 
met daarop twee vierkanten gezet. In de 
derde iteratie wordt op elk van deze twee 
vierkanten weer een driehoek met twee 
vierkanten getekend. Tijdens elke iteratie 
groeit de boom dus een beetje. 


Als derde vraagt de computer om de leng¬ 
te van de zijden het onderste vierkant van 
de boom. 

En als laatste moet u de coördinaten van 
de linkeronder hoek van dit vierkant in¬ 
voeren. 

In onderstaande tabel staan twee voor¬ 
beelden die u kunt invoeren. Als u de ge¬ 
tallen uit de eerste kolom invult, dan 
krijgt u de boom uit figuur 6 op het 
scherm. De getallen uit de tweede kolom 
zorgen voor een scheef gegroeide boom. 



Figuur 6 

scheef 

Hoekgrootte 

45 

60 

Aantal iteraties 

8 

7 

Lengte vierkant 

50 

40 

Coördinaten 

135,199 

80,199 


Als u een andere hoekgrootte probeert, 
dan moet u wat verschillende getallen 
voor de coördinaten en de lengte uitpro¬ 
beren, totdat de boom precies op het 
scherm past. Ter verbetering van het pro¬ 
gramma kunt u in de subroutine om het 
vierkant te tekenen (regel 160-190) testen 
of de coördinaten van de hoekpunten van 
het vierkant niet buiten het scherm liggen. 
Als dit het geval is verlaat u de routine 


meteen met RETURN. Hierdoor zal de 
computer niet stoppen met het tekenen 
van de boom, als er slechts een klein vier¬ 
kantje buiten het scherm valt. 

U kunt in plaats van vierkanten ook ande¬ 
re figuren tekenen. Daarvoor moeten re¬ 
gels 160-190 veranderd worden. In deze 
regels zijn (xl.yl), (x2,y2), (x3,y3) en 
(x4,y4) de coördinaten van de hoeken van 
het vierkant. Een eenvoudige verandering 
ontstaat door regels 160 en 190 te verwij¬ 
deren. Daardoor worden maar twee zijden 
van het vierkant getekend, zodat de boom 
iets realistischer wordt. Een andere sug¬ 
gestie is, om i.p.v. vierkanten cirkels te 
tekenen. U moet daarvoor het middelpunt 
van het vierkant berekenen en om dit punt 
een cirkel tekenen. Laat uw fantasie de 
vrije loop en probeer maar eens wat leuke 
figuren. 

Voor zover deel 6 over ComputerKunst. 
In de volgende aflevering zullen we het 
onder andere hebben over video banks en 
scrolling. Omdat er nog veel meer over 
ComputerKunst is te vertellen, zullen we 
in latere afleveringen nog terugkomen op 
dit onderwerp. Suggesties hier omtrent 
zijn van harte welkom. 

Michel de Boer & Hylke Sprangers 


Datahome software Amsterdam 


Nederlandstalige software : 


Kasbank boekhouding C-128 Moderne Bedrijfsadministr .f 399 50 * 

Alfa fakturering C-128 Integratie met Kasbank . - 299 50* 

Voorraadbeheer C-128 met Elektronische Kassa . . 299 50 N 

Tekstmaster C-128 Tekstverwerker 80 cis. - 139 00 * 

Choice database C-128 .' | j ' _ 189 50 

Fresh [ Financieel Registratie Systeem Huisartsen.- 399 ’so 

Reach C-128 Reportbase [ Agenda, rapporten, memo etc. .- 299^50 

Bravo C-128 Huishoudelijk/Financiële Administratie .- i 3 g’oo 

Abacus / Megasoftware [ Amerikaanse pakketten ]. 

Cadpak Cl 28 Professioneel Grafisch Tekenprogramma .f 289,50* 

Chartpak Cl 28 3-D Spreadsheet en Database .- 289^50* 

Powerplan C64 en 128 Spreadsheet en calculaties.- 259’50 

T.A.S. C-128 Aandelen-en beleggingen / Beurspakket.- 299^50 


* = Bestsellers!! 

N = Nieuw!! 


Datahome A m sterdam wenst alle Commodore bezitters en haar relaties 
prettige FEESTDAGEN en een voorspoedig 1990 toe ! A 

DATAHOME 

■ ■ 


Tel. 020-837367/855204 


automatisch automatiseren 
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THE FINAL 
CHESSCARD 


Een intelligente schaakcomputer 


W ederom zijn de software-ont- 
wikkelaars er in geslaagd iets 
nieuws te bedenken. Deze keer 
betreft het een cartridge van eni¬ 
ge allure. Een denkspel voor de 
echte liefhebber, waarbij u uw 
computer verandert in een intelli¬ 
gente schaakcomputer. 

Eerder al kwamen zij met een revolution¬ 
aire doorbraak op het gebied van cartrid- 
ges, de Final Cartridge III. Nu komen zij, 
TASC genaamd, wederom met een car¬ 
tridge voor de Commodore 64/128, de Fi- 

TUK IINAI 

* 1 1 \ *4 

CHFSSCARP r 

* «*nm nu tuwJP' .*!**•* 


Afb. 1: Final Chesscard 

nal Chesscard, een schaakcomputer die 
volgens de advertenties menig andere 
schaakcomputer de baas is. We hebben 
deze cartridge eens aan een ander onder¬ 
zoek onderworpen en zijn daarbij tot het 
volgende artikel gekomen. De cartridge 
wordt in een tweetal uitvoeringen uitge¬ 
bracht, een Commodore en een PC versie. 
We beperken ons hier tot de Commodore 
versie. Was het eigenlijk wel nodig om 
een nieuw computerschaak programma 
op de markt te brengen? Eerder al ver¬ 
schenen voor de Commodore program¬ 
ma’s als Chessmaster 2100 en Colossus 
Chess 4.0 op de markt. Deze program¬ 
ma’s worden echter geleverd op diskette, 
hetgeen het schaken vertragen kan, omdat 
steeds informatie ingelezen moet worden. 



Met de komst van de Final Chesscard be¬ 
hoort dit storende euvel tot het verleden. 
Het programma wordt geleverd op een 
mooie compacte cartridge. Deze cartridge 
bevat een resetknop en biedt plaats aan 
een tweetal penlight batterijen. Hierdoor 
bestaat de mogelijkheid om informatie op 
te slaan binnen de cartridge en blijft infor¬ 
matie permanent intact. 


Als je de Final Chesscard aan¬ 
schaft, de Commodore versie kost 
199 gulden, dan krijgt men een 
cartridge met een duidelijke Nederlandse 
handleiding in een kleurige en stevige 
doos, zie afb. I. 

Je zou geneigd zijn de cartridge gelijk in 
de computer te steken en beginnen met 
spelen. Echter is het doorlezen van de 
handleiding aan te bevelen. Alhoewel de 
opzet van de Final Chesscard zeer gebrui¬ 
kersvriendelijk is, met pull down menu’s, 
beschrijft de handleiding toch een aantal 
essentiële aspecten. Ten eerste wordt het 
installeren beschreven, waarbij het plaat¬ 
sen van de twee 1,5 volt AA batterijen de 
meest ingrijpende ?? bezigheid is. Ver- 



Afb. 2: Scherm afdruk 



volgens wordt de cartridge in de expan- 
siepoort van de C64/C128 geplaatst. U 
dient hierbij op te letten dat het apparaat 
uitgeschakeld is. De handleiding vervolgt 
dan met een introduktie over de verschil¬ 
lende mogelijkheden om stukken te ver¬ 
plaatsen. Hierbij heeft u de mogelijkheid 
uit verplaatsing met behulp van de muis, 
een joystick of het toetsenbord. Uiteraard 
is bediening met een muis of joystick te 
prefereren boven het gebruik van het toet¬ 
senbord. Het verplaatsen van een schaak¬ 
stuk is op zich heel eenvoudig. Men klikt 
het aan door met de pointer (aanwijs¬ 
kruisje) op het te verplaatsen stuk te gaan 
staan en dan op de muisknop of vuurknop 
te drukken en deze ingedrukt te houden. 
Het schaakstuk zal nu van kleur verande¬ 
ren en is verplaatsbaar. Wanneer u met 
het toetsenbord werkt is de functie van 
muisknop vastgelegd onder de CON- 
TROL toets. Op deze manier verplaatst u 
het schaakstuk naar de door u gewenste 
positie. Een illegale verplaatsing, zoals 
bijvoorbeeld het schuin verplaatsen van 
een pion, wordt door de Final Chesscard 
genegeerd en het stuk komt terug op zijn 
oude positie. Op deze manier zijn ver¬ 
keerde zetten niet mogelijk. Rechts in het 
scherm wordt de zgn. partijnotatie bijge¬ 
houden. Dit geschiedt geheel automat¬ 
isch. Hierbij heeft u ook nog de mogelijk¬ 
heid deze partijnotatie af te laten drukken 
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op de printer. Deze optie is vooral handig 
wanneer u een schaakpartij achteraf wilt 
analyseren, zie afb. 2. 

U kunt eveneens gedane zetten terugne¬ 
men door op de neerwaartse pijl aan de 
rechterzijde van het scherm te klikken. 
Hierbij is tevens de mogelijkheid om te¬ 
ruggenomen zetten weer vooruit te zetten, 
hetgeen u realiseert met de opwaartse pijl. 
Twee computerklokken registreren de tijd 
van iedere deelnemer. Bovenin het 
scherm wordt eveneens de hoofdvariant 
afgebeeld. Deze bestaat uit maximaal 5 
zetten, gevolgd door de bereikte zoek- 
diepte en een stellingswaardering. Deze 
waardering geeft aan welke speler het be¬ 
ste voorstaat. 



Zoals eerder reeds vermeld maakt 
de Final Chesscard gebruik van 
pull-down menu’s, Windows en 
gadgets. In een window wordt bepaalde 
informatie weergegeven, waarbinnen 
zich weer tekstgadgets bevinden. Ze wor¬ 
den tijdelijk over het speelveld heen ge¬ 
plaatst. In de gadgets, de kleine vakjes 
omgeven door een kader, kan met behulp 
van de pointer een opdracht worden gese¬ 
lecteerd of een waarde worden gewijzigd. 
Met de pull-down menu’s kunnen diverse 
instelwaarden worden gewijzigd. Om u 
een indruk te geven van de instellingen 


die de Final Chesscard zoal heeft volgt 
hier een opsomming. Als eerste kennen 
we het options menu, hier binnen kan 
worden gekozen voor de start van een 
partij of een herstart. Met de optie move 
wordt de partij uiteindelijk geaktiveerd. 
De optie stop thinking dwingt de compu¬ 
ter onmiddellijk te stoppen met denken en 
zijn tot op dat moment beste zet te doen. 
Een scala aan zgn. preset levels zijn mo¬ 
gelijk, bijvoorbeeld het aantal seconden 
per zet, het aantal zetten per 1 of meerde¬ 
re uren. Een partij van 5 tot 10 minuten. 
Alle niet onder de preset level in te stellen 
waarden kunnen met de optie user level 
worden ingesteld. De play mode stelt u in 
staat op te geven aan de computer tegen 
wie u wilt spelen, dit kan zijn speler-spe- 
ler, speler-computer of computer-compu- 
ter. Voorts kan hier opgegeven worden of 
er een zet teruggenomen moet worden of 
dat alle zetten teruggezet moeten worden. 
De optie replay a move en replay all ge¬ 
ven u respectievelijk de gelegenheid om 
een zet of alle zetten opnieuw te spelen. 


Ook ten aanzien van het schaak¬ 
bord zijn er een aantal presets in te 
stellen. Zo kunt u kiezen voor de 
optie teaching, waarbij de Chesscard u 
alle velden laat zien waarop een legale zet 
mogelijk is. De optie suggest move laat u 


The Final Chesscard, een nieuw 
schaakspel voor de 
CBM 64/128 en iBM compatible 
machines, van de makers van 
de Final Cardridge 


een mogelijke zet zien. Om de coördina¬ 
ten op bij het bord te plaatsen kiest u de 
optie coordinates. Het bord is met de op¬ 
tie rotate board 180 graden te draaien, 
vooral handig als u met zwart speelt. De 
Chesscard kent drie snelheden, normaal, 
snel en onmiddellijk. Verder zijn de kleu¬ 
ren van zowel de menu’s, de stukken als 
het scherm naar uw eigen smaak te veran¬ 
deren. Met de optie settings kunnen een 
aantal instellingen gewijzigd worden die 
betrekking hebben op onder meer de in¬ 
formatie die de Chesscard laat zien, de 
tijdsvermelding, in tijd per zet of totaal- 
tijd en betreffende de zgn. auto move, 
waarbij de computer pas gaat rekenen op 
het moment dat hij aan zet is. De Chess¬ 
card biedt ruime mogelijkheden om par¬ 
tijen te laden, te saven en te verwijderen 
op diskette. Verder is er een mogelijkheid 
om een openingsboek of een expansie te 
laden. Ook het laden en bewaren van in¬ 
stellingen (settings) behoort tot de moge¬ 
lijkheden. Enkele speciale mogelijkheden 
zijn onder meer het instellen van de stel¬ 
lingen, het aktiveren van een matzoeker 
hetgeen inhoudt dat u een zoekdiepte in 
moet stellen. U kunt commentaar aan een 
partij toevoegen met de optie add cont¬ 
inent. Met behulp van een printer kunnen 
de opties print board en print each move 
zeer behulpzaam zijn wanneer een partij 
naderhand geanalyseerd moet worden. 
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Helaas worden de stukken niet grafisch 
op een bord geprint, maar als nummers op 
hun positie afgedrukt. De optie print each 
move houdt in dat steeds na het zetten van 
een schaakstuk de printer de coördinaten 
afdrukt. De optie about the card geeft u 
informatie over de CROM (het versie- 
nummer van de interface) en de BROM 
(het versienummer van het schaakgedeel- 
te). Dit is belangrijk voor later, daar de 
leverancier in een bijgaand schrijven het 
al heeft over toekomstige uitbreidingen, 
zoals printerutilities, een openingshoek 
editor etc. 

Algemeen 

In de bijgeleverde handleiding 
worden nogal veel schaaktermen 
gebruikt, weliswaar worden deze 
zeer helder uitgelegd. Meestal hebben 
deze termen betrekking op de uitgebreide 
mogelijkheden van dit stukje hardware. 
Begrippen als openingshoek, waarin de 
meest gebruikelijke openingszetten zijn 
opgeslagen. Of de term Brute Force, het¬ 
geen betrekking heeft op het schaak-algo- 
ritme. Wanneer deze niet is geselecteerd 
zal de Chesscard met de Shannon B me¬ 
thode spelen (alleen relevante zetten wor¬ 
den bekeken). Is de Brute Force echter 
wel geselecteerd dan wordt gespeeld vol¬ 
gens de Shannon A methode, zodat alle 
mogelijke zetten worden bekeken. Verder 
bestaat de mogelijkheid om in de begin¬ 
ners modus te spelen, waarbij de Chess¬ 
card zijn speelstijl aan uw stijl aanpast. 
Dit betekent bijvoorbeeld dat als u een lo¬ 
per verliest de Chesscard na enige tijd 
ook een loper prijsgeeft. Ondanks het feit 


dat de Final Chesscard al zeer aktief 
speelt, kan met de optie aggresive plays- 
tyle het spelgedrag nog aktiever worden 
ingesteld. Als u eerst een demonstratie 
van de Chesscard wilt houdt u de 
INST/DEL toets ingedrukt terwijl u de 
computer inschakelt. Het spelen met de 
Final Chesscard is in een woord plezierig 
te noemen. De vele parameter instellin¬ 
gen maken het mogelijk de card naar uw 
eigen speelgedrag in te stellen. Zo is het 
dus ook mogelijk om als beginnend scha¬ 
ker met deze card uit de voeten te kunnen. 
Hetgeen ook het opleidingsinstituut NTI 
beoogt met het volgen van een cursus. 
Een interaktieve cursus met een beginner- 
sniveau, samengesteld door twee ver¬ 
maarde schaakmeesters C. van Wijgerden 



en R. Brunia. Hun lesmethode is geba¬ 
seerd op jarenlange K.N.S.B. ervaring. 
De cursus bestaat uit een 8-tal diskettes 
en is didaktisch zeer verantwoord en be¬ 
proefd. 

Karakteristieken 

De Final Chesscard werkt met 
pull-down menu’s waardoor het 
bedieningsgemak optimaal is. De 
besturing van het schaakbord kan 
worden gerealiseerd met behulp van een 
muis (1351), een joystick of het toetsen¬ 
bord. De kleuren van het bord, de schaak¬ 
stukken en het scherm zijn naar eigen 
keuze in te stellen. De speelsterkte voor 
de Commodore versie gaat tot maar liefst 
2000 Elo en kan worden ingesteld op se- 
lective search of brute force. De bedenk¬ 
tijd is volledig instelbaar en wordt bijge¬ 
houden op de klokken, die de tijd registre¬ 
ren in totaaltijd, zettijd of countdown. De 
zoekdiepte is instelbaar met de mogelijk¬ 
heid een matzoeker in te stellen die werkt 
tot 10 ply. Een teaching mode toont legale 
zetten, alsmede een suggest move optie 
maken dit pakket tot een educatief geheel. 
Terwijl u aan zet bent denkt de computer 
na, maar deze optie kan ook uitgescha¬ 
keld worden. Partijen kunnen worden op¬ 
geslagen op diskette, alsmede standaar¬ 
dinstellingen zoals kleur, tijd en speel¬ 
sterkte. Voor de analyse van een gespeel¬ 
de partij bestaat de mogelijkheid tot het 
afdrukken van een diagram. Uitbreidings¬ 
mogelijkheden met openings en trai- 
ningsdiskettes. 

Conclusie 

Met de komst van de Final Car- 
tridge is het software-arsenaal 
voor de Commodore niet alleen 
uitgebreid met een gewoon schaakpro¬ 
gramma, maar men krijgt de beschikking 
over een sterke tegenstander en een groot 
medestander als sekondant, oefenmeester 
of trainer. Plezierig is het gebruik van een 
cartridge, wat het vele bijladen van moge¬ 
lijkheden tot het verleden laat behoren. 
Hierdoor is de Final Chesscard snel en 
krachtig. Met andere woorden uw Com¬ 
modore 64/128 wordt in feite met het 
plaatsen van de cartridge omgebouwd tot 
een heuse schaakcomputer. Kortom een 
brokje hard/software waar we in de toe¬ 
komst best nog wel wat meer van zullen 
horen. 


Beoordeling 

spelniveau 

kleurgebruik 

kwaliteit 

documentatie 

Bert Venema 


zeer goed 
goed 

zeer goed 
goed 
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OUD VAN GOUD 


R ob Goudriaan trok weer een 
aantal ouwetjes uit de kast en 
besprak voor de liefhebbers hun 
tijdloze merites. 

Een of andere plaaggeest heeft al het geld 
gestolen en heeft daarmee de gehele we¬ 
reld in de war gestuurd. Een grappig uit¬ 
ziend mannetje moet dit zien te vinden 
daarmee redt hij de wereld van de onder¬ 
gang. Dit springmannetje is een soort 
spring in het veldje, een spring mannetje 
die door zijn vriendelijk uiterlijk danig 
door zijn vijanden onderschat kan wor¬ 
den. De raarste kapriolen kan hij maken, 
geen berg of in dit geval, geen hindernis 
is hem te hoog door zijn veer kan hij hele 
hoge sprongen maken en dat dit nodig is 
zul je al gauw ontdekken. Inzicht en pre¬ 
cisie zijn de ingrediënten die nodig zijn 
om deze opdracht te voltooien. De 
vreemdste hindernissen kun je tegenko¬ 
men. Op diverse plaatsen zijn pakjes ver¬ 
stopt deze zijn nodig om verder te kunnen 
gaan anders kom je zeker hindernissen te¬ 
gen die onmogelijk te nemen zijn. Een 
roltrap bijvoorbeeld kan je alleen nemen 
als je het bijpassende cadeautje hebt op¬ 
gepakt. Je kan ook alleen van de lift ge¬ 
bruik maken als je ook dit bijbehorende 
cadeautje in je bezit hebt. En zo heeft ie¬ 
dere hindernis zijn eigen presentje en of 
dit nu voor het transporteren door de lucht 
is of voor het gebruik van een trampoline. 
Behalve de hindernissen waar voor de ca¬ 
deautjes nodig zijn, zijn er ook nog ande¬ 
re gevaren en vergis je hierin niet of het 
nu vriendelijk ogende waggeltjes de hap- 
pertjes uit pacman spuitbussen of tele¬ 
foons zijn, ze vreten energie. Allerlei 
vreemde uitrustingen hebben deze ener- 
gie-vreters de een ziet er wat gevaarlijker 
uit als de ander maar laat u niet misleiden 
zelfs niet door kussende mondjes. Kom je 
deze tegen, zeg dan niet dat we niet heb¬ 
ben gewaarschuwd. Kijk uit voor trans¬ 
portbanden deze gaan maar een kant op. 
Zo als al gezegd is er een lift. Heb je het 
bijpassende kadootje gevonden dan kan 
je hier mee naar de tweede, derde of vier¬ 
de etage. Hier staan weer andere gevaren 
op je te wachten. Laser stralen kosten on¬ 
gelofelijk veel energie, en ook hier moet 
er weer heel wat op en af gesprongen 
worden. Kijk uit dat je niet ergens door 
heen zakt want dit kan het einde beteke¬ 
nen. Omdat alles wat je doet en aanraakt 


energie vreet, staan of hangen er hier en 
daar energie tanks. Maak hier gebruik van 
want anders haal je het einde zeker niet. 
Op diverse plaatsen hangen er plaatjes, 
deze moeten verzameld worden, zij vor¬ 
men straks een geheel. Kijk rechts boven, 
hier verschijnen de plaatjes die je gepakt 
hebt. Het zal niet direkt lukken want dit 
spel kost de nodige moeite, maar heb je 
eenmaal door hoe je moet springen en 
waar alles voor dient, dan is dit spel zeer 
verslavend, u bent gewaarschuwd. 



Hopeloos 

Bij dit spel is het de bedoeling dat u op 
harten jaagt. Dit moet gedaan worden in 
de eindeloze ruimten van New Almere. 
Voorzien van een speciaal soort ruimte 
pak gaat u van start. U heeft een speciaal 
motortje op uw rug waarmee u door de 
oneindige ruimten kunt zweven, want de 
harten liggen nu niet bepaald op een 
hoopje. Er moet heel wat voor worden ge¬ 
daan. In de dubieuze wereld van Manie 
Munk is alles mogelijk en je hebt dan ook 
aan hem een zeer geduchte tegenstander. 
Als u de benodigde harten hebt verzameld 
redt u de gekidnapte vriendin uit de han¬ 
den van dit genadeloze wezen. Hoe ver¬ 
nuft dit wezen is zult u al gauw ontdek¬ 
ken. De harten zijn nu niet gemakkelijk te 
bereiken. Een paar zijn er redelijk te ver¬ 
krijgen. Dit is om u nu niet al te zeer te 
ontmoedigen maar laat u niet misleiden, 
diversen zijn nep en heeft u nu net een 
helse strijd gevoerd tegen een zo'n talrijk 
leger van tegenstanders, muren en han¬ 
dels die om gezet moeten worden, dan 
blijkt het een waardeloos hart te zijn, 
want die zijn er ook, dan is er wel zeer 


veel doorzettings vermogen voor nodig 
om door te gaan. Op diverse plaatsen zijn 
monitoren geplaatst. Deze hebben 
verschillende functies. De meest voor ko¬ 
mende zijn de overzicht monitors hier op 
kunt u zien waar u uithangt, de omgeving 
kunt u bekijken en bepalen hoe ver u nog 
moet en of u op de juiste weg zit. Een 
knipperend sterretje wijst u de “goede” 
weg, daar is een hart verborgen. Staat u 
voor de monitor met het knipperend hart, 
land hier door vuurknop indrukken han¬ 
del naar voren en als alles goed is is er een 
heart attack en het eerste hart is in uw be¬ 
zit. Ergens in het grootte heelal verdwijnt 
er een hindernis die een weg vrij moet 
maken naar het binnenste van het hart. 
Behalve deze twee monitors zijn er ook 
nog monitors waar de nodige brandstof 
bijgetankt kan worden. De makkelijkste 
zijn wel de transporteer monitoren met 
behulp van deze kan je een hele afstand 
verder terecht komen. Dan staan er in het 
begin van de diverse ruimte grotten moni¬ 
toren die bepaalde schakelingen verrich¬ 
ten. Deze schakelen horizontale openin- 
gen in vertikale openingen al naar gelang 
dit nodig is. Dan zijn er ook nog monito¬ 
ren met kleuren schakelingen, uiteraard is 
dit alleen voor de kleur die er op staat 
voor de rest moet u de bijbehorende kleu¬ 
ren monitor op zoeken. Let goed op het 
paneel rechtsonder, deze geeft diverse 
handige tips en informatie door, deze 
houd bij hoeveel harten er nog moeten 
worden verzameld en hoeveel mannetjes 
u nog heeft. Hoe het met de energie voor¬ 
raad staat enz. Voor ieder hart dat u ge¬ 
kraakt heeft verdwijnt er een hindernis 
zijn alle harten, op een na gevonden, dan 
kunt het centrum der harten betreden. 
Hier moeten de laatste hindernissen geno¬ 
men worden waaronder het laatste hart. 
Persoonlijk vind ik het einde wat 
teleurstellend na al die moeite om de har¬ 
ten te sparen had het einde wat anders ge¬ 
kund, maar dat is mijn persoonlijke me¬ 
ning toch is dit spel zeker de moeite 
waard om te spelen. 

Crystal Castle 

In het spel Crystal Castel kruip je in de 
huid van een beer, genaamd Bentley. 
Bentley heeft een goedaardig karakter en 
zal nooit een vlieg kwaad doen. Zijn be¬ 
langrijkste aktiviteit is zo af en toe een 
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potje honing te eten en eens een dutje te 
doen, meer heeft hij niet nodig. Hierop is 
een grote uitzondering, het gems-virus. 
Zodra hij de gem kriebels krijgt is er geen 
houden meer aan. Gems zijn duidelijk te 
herkennen, ze liggen overal verspreid 
over de vloer. Er zijn maar liefst 18 ver¬ 
schillende locaties, allemaal in 3-dimens- 
ionale uitvoering. U kunt van alles op uw 
weg tegenkomen wat uw werk kan verge¬ 
makkelijken. maar vaker wordt uw weg 



er duidelijk moeilijker door. Zo zijn de 
liften een uitkomst om ergens snel te ko¬ 
men, maar ook de tegenstanders maken 
dankbaar gebruik van deze route. De te¬ 
genstanders zullen op alle mogelijke ma¬ 
nieren proberen te beletten dat de gems 
worden opgepakt. Behalve de liften, zijn 
er ook nog hellingen, tunnels en ook 
schuilplaatsen. Deze schuilplaatsen zijn 
een prima plaats om je te verstoppen voor 
hinderlijke achtervolgers. De tegenstan¬ 
ders laten zich eigenlijk niet beschrijven, 
ze zijn in staat steeds een andere gedaante 
aan te nemen, dit maakt de opdracht er 
niet gemakkelijker op. Hierdoor 

moet steeds goed opgelet worden, wie en 
waar is de vijand. Elke tegenstander heeft 
zijn eigen wapen, hun opdracht is echter 
voor een ieder gelijk, vernietig de goe¬ 
daardige beer. Ook de laatste gem blijkt 
voor hun een gewilde prooi te zijn, deze 
heeft namelijk bonus waarde, en is daar¬ 
door extra interessant. De tegenstanders 
zijn even in verwarring te brengen door 
over ze heen te springen. We hoeven U 
niet te vertellen dat dit ook extra gevaren 
met zich mee brengt. Een stuur of denk¬ 
fout is hierbij snel begaan, maar je moet 
er wat voor over hebben voor wat tijd¬ 
winst. Een moeilijke tegenstander is het 
skelet, deze doolt over de weg zonder een 
bepaald patroon. Hierdoor is dit een on¬ 


berekenbare tegenstander. Berthida, dit is 
een gemene heks. Zij kan alleen worden 
vernietigd als je in het bezit bent van de 
magic-hat, deze maakt je voor een korte 
periode onzichtbaar. De hoed kan in je 
bezit komen door er over heen te lopen of 
te springen. Heel verstandig is het niet te 
lang op één plaats te blijven staan, dit 
trekt direkt een horde tegenstanders aan. 
Beter is het in zo’n geval even een blokje 
extra rond te lopen. Een pot honing levert, 
net als de magic-hat, een flink aantal bo- 
nuspunten op. Het vernietigen van een 
gem eter of Berthilde levert 1000 punten 
op. Ook de laatste gem per scherm kan de 
score flink doen oplopen. Veel succes 
met de tree wave, gems, Berthilda en alle 
andere vreemde wezens. 

Scooby Doo 

Vele mensen zullen Scooby Doo wel her¬ 
kennen van de gelijknamige televisie se¬ 
rie. Nu heeft U dan de kans om in zijn 
huid te kruipen. Net als in de film is er 
maar één opdracht, het bevrijden van je 
vrienden en zelf proberen om uit handen 
te blijven van je tegenstanders. Velma, 
Daphne en Fred zijn gevangen genomen 
door een boosaardige professor. Op dit 
punt houd de overeenkomst tussen het 
computerspel en de televisie serie geheel 
op. De Scooby Doo in dit spelletje moet 
er heel wat op los boksen voor hij maar in 
de buurt van zijn vrienden kan komen. De 
professor heeft ze verstopt in een grote 
stopfles. Ze zijn slechts één voor één te 
bevrijden. Het speelveld is opgebouwd 
uiteen groot aantal schermen. Deze scrol- 
len, bewegen, als achtergrond over het 
beeld. Op het moment dat het spel wordt 
gestart staat U, als Scooby Doo links on¬ 
der op het scherm. Tijdens het lopen na¬ 
deren al snel de eerste tegenstanders. De 
grote zwevende geest is uit te schakelen 
door hem een ferme tik te geven. Niet al¬ 
leen deze grote geesten maken het je las¬ 
tig maar zo mogelijk nog vervelender zijn 
de kleine spookjes. Ze komen op de 


meest onverwachte plaatsen uit een deur 
op de achtergrond ineens opduiken. Niet 
alleen van voren dreigt er gevaar, dus let 
ook goed op wat er achter je gebeurt. 
Over schedels, deze suggereren eerdere 
tegenstanders die minder geluk hadden, 
kun je heen springen. Ook de gaten in de 
vloer zijn op deze manier te overwinnen. 
De trappen zijn er om beklommen te wor¬ 
den, maak er selektief gebruik van. Niet 
alle trappen leidden naar de goede weg. 
Zeker je moet niet gauw de moed verlie¬ 
zen, het is en blijft puzzelen in dit grote 
doolhof. Nu zou dit spel niet spannend 
zijn als de professor de vrienden niet goed 
verstopt zou hebben, we verraden dus niet 
waar ze zitten. We kunnen alleen verklap¬ 
pen, erg gemakkelijk maakt hij het je niet. 
Op het moment dat je de eerste vriend, of 
vriendin hebt gered, moet je niet denken 
nu weet ik de weg. De professor is ge¬ 
meen en zeker niet dom. Net als je denkt 
nu weet ik de weg, blijkt het gehele dool¬ 
hof andere gangen, trappen en ingangen 
te hebben. Er zijn onderweg gelukkig ex¬ 
tra levens te verdienen. Dit kan gebeuren 
door de kleine schatkistjes, die onderweg 
zijn verstopt, te pakken. Deze zijn her¬ 
kenbaar aan de letter “S”. Kijk hier extra 
goed naar uit, ze zijn zeker noodzakelijk 
om dit spel goed uit te spelen. In het eer¬ 
ste level blijken in de praktijk de tegen¬ 
standers nog wel te overtroeven. Hoe ver¬ 
der in het spel, hoe moeilijker het geheel 
wordt. Er komen extra gaten in de vloer 
en er komt een heel springerig volkje om 
de hoek kijken. In het derde level komt er 
een groot soort walvis op de proppen. In 
het vierde en laatste level heb je te maken 
met een speciaal soort aap, of iets wat 
daar op moet lijken. Al met al is het zeker 
geen gemakkelijke klus om alle vrienden 
uit de stopfles te bevrijden. Maar het spel 
staat zeker garant voor vele uurtjes spel 
plezier. 
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D e kerstdagen zijn nog niet 
aangebroken en het nieuwe 
jaar is ook nog even wachten, 
maar toch vast onze wensen aan 
u. Dit is tenslotte het laatste num¬ 
mer van het jaar: prettige kerstda¬ 
gen en een gelukkig nieuwjaar. 

In deze aflevering van Tips & Trucs zul¬ 
len we het onder andere hebben over hoe 
Basic programma’s worden opgeslagen 
en over het veranderen van regelnum¬ 
mers. Ook zal worden besproken hoe een 
zelf-runnend programma gemaakt kan 
worden. 

Basic programma’s 

Zoals tl waarschijnlijk wel weet, wordt er 
in de adressen 43 en 44 het beginadres 
van een Basic programma bijgehouden. 
Als er een programma in de computer zit, 
wordt door deze adressen het beginadres 
gegeven, waar het programma start. Als u 
begint met programmeren, wordt het pro¬ 
gramma ook opgeslagen vanaf dit adres. 
Het beginadres is als volgt te berekenen: 

beginadres = peek(43) + 256*peek(44). 

Het eindadres van het programma wordt 
bewaard in de adressen 45 en 46. Het ein¬ 
dadres berekenen gaat op een soortgelijke 
manier: 

eindadres = peek(45) + 256*peek(46). 

We noemen de adressen die zelf een adres 
bevatten pointers. De adressen 43 en 44 
vormen zo samen een pointer naar het be¬ 
ginadres van een Basic programma. 

We gaan nu kijken hoe een Basic pro¬ 
gramma wordt opgeslagen in het geheu¬ 
gen. 

Als eerste moet er op het beginadres-1 
een nul in het geheugen staan. Het begi¬ 
nadres staat standaard op 2049. Dit bete¬ 
kent dat er op adres 2048 een nul in het 
geheugen moet staan. U kunt bijvoor¬ 
beeld in adres 2048 een 1 poken. Als u 
dan een Basic programma probeert uit te 
voeren, zult u merken dat dit niet gaat. De 
computer geeft een foutmelding. 

Verder is er ook bepaald dat er aan het 
eind van een Basic programma drie op¬ 


eenvolgende nullen in het geheugen moe¬ 
ten staan. U kunt met een monitor het ge¬ 
heugen bekijken. U kunt het eind van een 
programma dan herkennen aan het feit dat 
er drie nullen achter elkaar staan. U kunt 
bijvoorbeeld de pointer die het eind van 
het Basic programma aangeeft (de adres¬ 
sen 45 en 46 dus) verhogen. Hierdoor 
kunt u een extra stuk geheugen meesaven. 
In dit extra stuk geheugen kan dan bij¬ 
voorbeeld een hiresplaatje staan of iets 
dergelijks. Door nu met een monitor in 
het geheugen te gaan graven, kunt u toch 
nog kijken waar het programma werkelijk 
eindigt, door naar drie nullen te speuren. 
Overigens kunt u de drie nullen ook wel 
gelijk opsporen met het commando hunt, 
dat in de meeste monitors wel aanwezig 
is. We gaan nu kijken hoe de Commodore 
64 globaal een programmaregel in het ge¬ 
heugen opslaat. We doen dit aan de hand 
van een klein voorbeeld programma: 

10 print" hallo" 

20 print"Greetings from the ArtVark" 

Het beginadres van het bovenstaande pro¬ 
gramma is gewoon 2049. Op dat adres be¬ 
gint dus regel 10. De regels in een Basic 
programma worden uiteraard gewoon 
achter elkaar opgeslagen in het geheugen. 
Deze regels beginnen elk met 4 bytes die 
informatie over de betreffende regel aan 
de computer geven. Achter deze 4 bytes 
staat de werkelijke code voor die regel. 
Daarbij zijn de Basic instrukties geko- 
deerd opgeslagen. De print instruktie 
heeft bijvoorbeeld als code het getal 153. 
We gaan nu wat dieper in op de 4 infor¬ 
matie bytes. De eerste twee bytes geven 
het adres waarop de volgende regel be¬ 
gint. De eerste twee informatie bytes van 


regel 10 in ons programma zijn de adres¬ 
sen 2049 en 2050. Deze vormen samen 
dus een pointer naar het beginadres van 
regel 20. In ons programma bevat adres 
2049 de waarde 14 en adres 2050 de 
waarde 8. Regel 20 begint zo op adres 14 
+ 256*8 = 2062. Op adres 2062 staat dus 
het eerste informatie byte van regel 20. 
We hebben het nu gehad over de eerste 
twee informatie bytes. De tweede twee 
informatie bytes vormen samen het regel¬ 
nummer van de regel. In ons voorbeeld 
bevat adres 2051 de waarde 10 en adres 
2052 de waarde 0. Deze waarden vormen 
samen het getal 10 + 0*256 = 10. 

Deze vier informatie bytes zijn bijvoor¬ 
beeld bij GOSUB instrukties nodig. De 
computer begint dan vooraan te zoeken 
naar het opgegeven regelnummer. Klopt 
het eerste regelnummer niet met het opge¬ 
geven nummer, dan gaat de computer 
naar de volgende regel enz. Om de snel¬ 
heid van uw computer op te voeren kunt 
u subroutines het beste vooraan het pro¬ 
gramma zetten. 

Regelnummers in Basic. 

In de paragraaf Basic programma’s heb¬ 
ben we het gehad over informatie bytes 
die de computer voor elke regel op slaat. 
De tweede twee informatie bytes bevatten 
het regelnummer. We gaan nu de regel¬ 
nummers verder bekijken. Een byte kan 
als grootste getal de waarde 255 bevatten. 
Het theoretisch grootste regelnummer is 
op deze manier 255 + 256*255 = 65535. 
Echter, dit is de theorie. In de praktijk 
blijkt dat u niet een regelnummer groter 
dan 63999 kan kiezen. Probeert u maar 
eens het volgende statement in te voeren: 
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64100 ?"42" 

De Commodore zal hier eenvoudig op 
reageren met een syntax error, omdat hij 
zo'n hoog regelnummer niet toestaat. We 
weten echter inmiddels wel waar de com¬ 
puter de regelnummers opslaat. Op deze 
manier kunnen we nu betrekkelijk mak¬ 
kelijk regelnummers genereren met waar¬ 
den hoger dan 63999. Typt u maar eens 
het volgende in: 

10 print"hallo" 

20 print"dag" 

De adressen 2051 en 2052 bevatten nu sa¬ 
men het regelnummer van regel 10. Nu 
voeren we de volgende poke in: 

poke 2052,255 

We hebben nu het regelnummer van regel 
10 verandert in regel 65290 (10 + 
256*255 = 65290). Als u list intypt krijgt 
u het volgende: 

65290 print" hallo" 

20 print"dag" 

Het programma kunt u overigens nog ge¬ 
woon steeds runnen. We kunnen nu ech¬ 
ter regel 20 makkelijk nog een keer in¬ 
voeren: 

20 prinf'dag" 

Wat we nu krijgen is het volgende pro¬ 
gramma: 

20 prinf'dag" 

65290 print"hallo" 

20 prinf'dag" 

U ziet het, de computer ‘ziet’ niet meer 
dat er al een regel inzit met nummer 20. 
Dit komt omdat de computer van voor af 
aan begint te zoeken naar een regelnum¬ 
mer 20. Bij regelnummer 65290 stopt de 
computer omdat 65290 groter is dan 20. 
De computer verwacht dus geen kleiner 
nummer achter 65290. U kunt het boven¬ 
staande programma overigens gewoon 
uitvoeren. Er is echter wel een geval waar 
in het fout kan gaan. Er kan niet meer naar 
de laatste regel gesprongen worden. Als 
er nu een GOTO 20 gegeven wordt, 
springt het programma naar de eerste re¬ 
gel 20. Als deze niet zou bestaan, dan 
vindt de computer niet de achterste regel 
20. De computer stopt dan met een fout¬ 
melding. 

Sprites tijdens laden 

Het komt wel eens voor dat u tijdens het 
draaien van een programma iets van tape 
of disk wilt laden. U heeft bijvoorbeeld 
een bestandenprogramma gemaakt waar¬ 
mee u een bestand van tape wil laden. Of 
u wilt bijvoorbeeld een hiresplaatje van 
disk laden. Tot zover zijn er geen proble¬ 
men. 

Het laden gaat echter fout als er sprites op 
het beeld staan! U zult hiervan waar¬ 


schijnlijk wel opkijken. Tijdens het laden 
moeten de sprites ook steeds op het beeld 
worden gezet door de computer. Het 
beeld wordt immers steeds opnieuw op¬ 
gebouwd. Als er tijdens het laden sprites 
op het beeld staan, gaat er iets fout met 
interrupts. Het gevolg is dat het program¬ 
ma niet goed geladen wordt. Overigens 
hebben we het hier over laden van disk. 
Bij het laden van tape hebben we geen 
last van sprites op het beeld. Eenvoudig¬ 
weg omdat tijdens het laden van tape het 
scherm wordt uitgezet. Bij laden van disk 
blijft het scherm echter aan en dan gaat 
het fout als er sprites op het beeld staan. 
De simpelste manier om dit probleem op 
te lossen, is de sprites uit zetten. Dit kan 
met POKE 53269,0. 

U kunt ook zelf het beeld uitzetten. Dit 
kan gebeuren met bit 4 uit adres 53265. 
Als dit bit op 1 staat is het scherm aan. 
Met een 0 in dit bit kan het beeld worden 
uitgezet. POKE 53265,PEEK(53265) 
AND NOT 16 zet het beeld dus uit. Met 
POKE 53265,PEEK(53265) OR 16 kan 
het beeld dan weer aangezet worden. 

Autostart 

Anne Bezemer uit Papendrecht schreef 
ons een brief waarin hij vroeg of wij kon¬ 
den uitleggen hoe een programma zelf- 
startend kan worden gemaakt. Omdat er 
wellicht meer lezers geïnteresseerd zijn in 
dit onderwerp, zullen we in deze afleve¬ 
ring uitgebreid aandacht besteden aan het 
maken van deze programma’s. 

Een zelf-startend programma is een pro¬ 
gramma dat direct, nadat het is ingeladen, 
start. De gebruiker hoeft het programma 
dus niet te starten met het RUN comman¬ 
do. Dit heeft tot gevolg dat de gebruiker, 
na het laden van het programma, geen 
controle meer krijgt over de computer, 
waardoor het onmogelijk is om het pro¬ 
gramma te copieren door middel van het 
SAVE commando. In combinatie met een 
reset beveiliging, zoals die in de vorige 
aflevering van ‘Tips & Trucs 64’ is be¬ 
schreven, is een zelf-startend programma 
redelijk beveiligd tegen copieren. ‘Rede¬ 
lijk beveiligd’ betekend dat Jan Modaal 
niet in staat is om het programma te kra¬ 
ken. Voor de doorgewinterde kraker is 
het kraken van deze beveiliging helaas 
een fluitje van twee cent. 

We zullen nu een methode bespreken 
waarmee een programma zelf-startend 
kan worden gemaakt. We moeten daarbij 
onderscheid maken tussen machinetaal en 
Basic programma’s. Eerst leggen we het 
zelf-startend maken van machinetaal pro¬ 
gramma’s uit, omdat dit eenvoudiger is 
dan het zelf-startend maken van een Basic 
programma. 

Om een programma zelf-startend te ma¬ 
ken, moeten we uitzoeken wat de compu¬ 
ter precies doet nadat het programma ge¬ 


laden is en voordat de gebruiker de con¬ 
trole over de computer terugkrijgt. Door 
daaraan iets te veranderen, kan ervoor ge¬ 
zorgd worden dat de computer het zojuist 
geladen programma runt in plaats van dat 
het de controle aan de gebruiker terug¬ 
geeft. Vlak voordat de gebruiker de con¬ 
trole over de computer terugkrijgt, wordt 
de melding ’READY. ’ op het scherm af¬ 
gedrukt. Het afdrukken van deze melding 
gebeurt door indirect via adres 770 
($0302) te springen met de machinetaal 
instructie JMP ($0302). Deze instructie 
zorgt ervoor dat de computer het machi¬ 
netaal programma dat op het adres, dat in 
de adressen 770 en 771 staat, uitvoert. 
Standaard staat in de adressen 770 en 771 
het adres 42115. Omdat de adressen 770 
en 771 RAM adressen zijn, kunnen we 
deze adressen veranderen. Als we er dus 
op de een of andere manier voor kunnen 
zorgen dat direct na het laden van het pro¬ 
gramma het startadres van dit programma 
in de adressen 770 en 771 staat, zal niet 
de routine die de READY melding af¬ 
drukt, worden gestart, maar zal het pro¬ 
gramma worden gestart. Dit kan met een 
paar Basic instructies gedaan worden. 

Als eerste laadt u het machinetaal pro¬ 
gramma dat u zelf-startend wil maken in. 
Daarna rekent u het hi- en lo-byte van het 
SYS adres uit met de volgende formule: 
HI=INT(adres/256):LO=adres-256*HI 
Vervolgens tikt u de volgende Basic regel 
in: 

PRINT “{SHIFT-CLR}”:POKE 

770, LC):POKE 771,HI:POKE 43,2:POKE 
44,3:SAVE “programma”,8,1 

Na het saven van het programma krijgt u 
de controle over de computer niet meer 
terug, maar zal het programma starten. 
Het programma staat nu beveiligd op 
disk. Als u het inlaadt zal het programma 
zelf starten. 

Wat doet de bovenstaande Basic regel nu 
precies? Eerst wordt het scherm gewist. 
Vervolgens wordt in de adressen 770 en 
771 het startadres van het programma ge- 
poked. Dan wordt in de adressen 43 en 44 
het adres 770 gepoked. De adressen 43 en 
44 geven aan wat het beginadres van een 
programma is; vanaf dit adres wordt gesa¬ 
ved bij het SAVE commando. Tenslotte 
wordt het geheugengebied, dat begint op 
adres 770 en eindigt bij het eindadres van 
het programma, gesaved. Op deze manier 
wordt dus de veranderde waarde van 
adressen 770 en 771 meegesaved. Als het 
programma nu wordt ingeladen, wordt 
deze waarde weer ingelezen op 770 en 

771, zodat het programma na het laden 
start. Omdat vanaf adres 770 wordt gesa¬ 
ved, wordt ook het schermgeheugen 
(1024-2023) gesaved. Hierdoor zal alles 
dat tijdens het saven op het scherm staat, 
tijdens het laden van het programma weer 
zichtbaar worden. We wissen daarom 


Commodore Info 8189 


21 



C-64 


voor het saven het scherm, zodat de inge¬ 
tikte POKE’s tijdens het laden niet op het 
scherm komen te staan. Degene die het 
programma laadt, zou anders kunnen zien 
hoe het programma beveiligd is. 

Om het programma op tape te saven moet 
de 8 bij het save commando in een 1 wor¬ 
den veranderd. U moet het programma 
dan wel in turbo saven. Zonder turbo 
werkt de beveiliging namelijk niet. 

Een tweede manier om een machinetaal 
programma zelf-startend te maken is, 
door de adressen 806 en 807 ($0326 en 
$0327) te veranderen in plaats van 770 en 
771. In deze adressen staat het startadres 
van de routine die een karakter op het 
scherm afdrukt. Deze beveiliging is beter 
dan de beveiliging via adres 770. Als het 
programma namelijk niet met het LOAD 
commando wordt geladen, maar met een 
machinetaal monitor, wordt er geen REA- 
DY afgedrukt, waardoor het programma 
met de eerste beveiliging niet zou starten. 
De beveiliging via 806 werkt hierbij wel, 
omdat er wel karakters worden afgedrukt. 
Om een machinetaal programma op deze 
manier zelf-startend te maken, kunt u 
weer gebruik maken van de Basic regel, 
die bij de eerste manier is gebruikt; u 
moet dan alleen de adressen 770 en 771 in 
respectievelijk 806 en 807 veranderen. 
Als u gebruikt maakt van de tweede be¬ 
veiliging, moet u er wel voor zorgen dat 
het programma, nadat het gestart is, de 
waarden in de adressen 806 en 807 weer 
hersteld, omdat het anders onmogelijk is 
om karakters af te drukken. 

Om Basic programma’s zelf-startend te 
maken moeten we nog iets meer doen, 
omdat een Basic programma niet met 
SYS adres, maar met RUN moet worden 
gestart. Voor het zelf-startend maken van 
Basic programma’s hebben we de toet- 
senbordbuffer nodig. We gaan nu eerst 
een klein machinetaal programma maken 
dat de ASCII-codes voor R, U, N en {RE¬ 
TURN! in de toetsenbordbuffer zet. Na¬ 
dat dit programma is uitgevoerd, wordt 
het commando RUN uitgevoerd. Als we 
dit machinetaal programma samen met 
het Basic programma saven dan is het 
probleem van het zelf-startend maken van 
een Basic programma gereduceerd tot het 
probleem van het zelf-startend maken van 
een machinetaal programma. Dit laatste 
probleem hebben we al opgelost. We 
moeten nu alleen nog kijken hoe we het 
machinetaal programma samen met het 
Basic programma kunnen saven. Als we 
het machinetaal programma op adres 900 
zetten zal dit automatisch gebeuren, om¬ 
dat we voor het zelf-startend maken van 
het machinetaal programma namelijk 
vanaf adres 770 of 806 moeten saven. Het 
machinetaal programa ziet er als volgt uit: 


Labels Mnemonics Commentaar 
ldx #$03 

lus lda run,x ;Zet ’run’ in 

sta $0277,x ;toetsenbordbuffer. 
dex 

bpl lus 

lda #$04 ;Zet waarde 4 in 
sta $c6 ;in adres 198. 
lda #$ca ;Herstel adressen 
sta $0326 ;806 en 807. 
lda #$fl 
sta $0327 
rts 

run asc “run” 

,byt $0d 

U kunt een Basic programma nu als volgt 
zelf-startend maken: 

1. Laad het Basic programma in het ge¬ 
heugen. 

2. Zet het machinetaal programma op 
adres 900. 

3. Tik de volgende regel in: 

PRINT “{SHIFT-CLR}”:POKE 
43,38:POKE 44,3:POKE 806,132:POKE 
807,3:SA VE" naam" ,8,1 

Testbeeld 

Met behulp van een raster interrupt is het 
mogelijk om het beeldscherm in een aan¬ 
tal horizontale balken te verdelen. Zo 
kunnen de schitterendste demo’s worden 
gemaakt. Elk van deze balken kan bij¬ 
voorbeeld een eigen achtergrond- en bor- 
derkleur worden gegeven; in de ene balk 
kan een prachtig hires plaatje worden af- 
gebeeld; in een andere balk vliegen een 
aantal sprites rond en in weer een andere 
balk scrollt in een exotisch lettertype een 
lichtkrant, waarin wordt opgeschept over 
hoe mooi de demo wel is en hoe moeilijk 
het was om de demo te programmeren. In 
deze paragraaf geven wij een klein pro¬ 
gramma waarmee u de makers van derge¬ 
lijke demo’s kunt verbazen. 

Dit programma verdeelt het scherm niet, 
zoals altijd, in een aantal horizontale bal¬ 
ken maar in een aantal vertikale. Via de 
raster interrupt is dit niet mogelijk, omdat 
deze alleen maar werkt met horizontale 
beeldlijnen. Het programma werkt daar¬ 
om zonder raster interrupt; het gebruikt 
zelfs geen andere interrupts. Helaas kun¬ 
nen er met dit programma alleen maar een 
aantal kleurenbalken gemaakt worden, 
zonder enige tekst of sprites op het 
scherm; deze kleurenbalken lopen echter 
wel over het hele scherm, dus ook in de 
border, waardoor het scherm eruit ziet als 
een testbeeld. Wat het programma doet, 
klinkt nogal simpel, maar probeert u het 
maar eens te maken zonder verder te le¬ 
zen. U zult dan zelf wel ontdekken dat het 
helemaal niet zo eenvoudig is, alhoewel? 
Het programma werkt als volgt. Als het 
tekstscherm uitgeschakeld is, door in 
adres 53265 een 0 te poken (het hele 


scherm heeft dan de kleur van de border), 
en de interrupt is gestopt met het machi¬ 
netaal commando SEI, dan duurt het op¬ 
bouwen van een beeldlijn precies 63 cy- 
cles (een beeldlijn wordt puntje voor 
puntje van links naar rechts opgebouwd). 
Een cycle is een tijdseenheid die vaak in 
de informatica gebruikt wordt. Bij de 
Commodore 64 duren 1.000.000 cycles 
ongeveer een seconde. De machinetaal 
LDA #$getal instructie duurt 2 cycles. De 
STA $adres instructie duurt 4 cycles en 
de JMP $adres instructie duurt 3 cycles. 
In 63 cycles kunnen dus precies 10 keer 
een LDA en een STA en 1 keer een JMP 
instructie worden uitgevoerd. Na elke 
LDA en STA instructie is de computer 
weer een stukje verder met het opbouwen 
van een beeldlijn. Door nu met de LDA 
en de STA instructie 10 keer de kleur van 
de border (adres 53280) te veranderen, is 
de beeldlijn verdeeld in 10 verschillend 
gekleurde stukjes. Als daarna met de JMP 
instructie weer naar het begin van het pro¬ 
gramma wordt gesprongen, ontstaan er 
vertikale, gekleurde balken. Hieronder 
volgt de listing van het ’kinderachtig een¬ 
voudige’ programma: 

Labels Mnemonics Commentaar 


sei 

interrupt 
lda #$00 
sta $d011 
uit 

lus lda #$00 
border 
sta $d020 
kleur. 
lda #$01 
hele 

sta $d020 
kleur van 
lda #$02 
heeft, 
sta $d020 
lda #$03 
sta $d020 
lda #$04 
sta $d020 
lda #$05 
sta $d020 
lda #$06 
sta $d020 
lda #$07 
sta $d020 
lda #$08 
sta $d020 
lda #$09 
sta $d020 
mp lus 


; Zet 

uit 

;Zet scherm 

/Verander de 

;10 keer van 

;Omdat het 

;scherm de 

;de border 

;veranderd het hele 
;scherm van kleur. 


;Start opnieuw. 


Door op de RESTORE toets te drukken, 
nadat het programma gestart is, kunnen 
de balken verschoven worden. 


Hylke Sprangers & Michel de Boer 
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Basic 8. 



E indelijk is er dan weer een Ba¬ 
sic pakket dat de 80 cis mode 
ondersteund, En wat voor één !. 
Het pakket wordt geleverd op 
twee 5.25 diskettes, iedere kant 
van de diskettes bevat een deel 
van het pakket en is AutoBoot- 
able. “Lees eerst de handleiding 
goed door, en ga daarna pas BA¬ 
SIC 8 installeren. Dit voorkomt veel 
ellende”. Bent u ongeduldig, zoals 
wij waren, dan kan er wel eens 
wat fout gaan, want BASIC 8 moet 
eerst op vijf diskettes worden geïn¬ 
stalleerd. Daarna kunt u de origi¬ 
nelen veilig in de kast opbergen, 
en verder werken met de door het 
programma zelf aangemaakte 
kopie. 

Wat is BASIC 8. 

BASIC 8 is als het ware de uitgebreidere 
versie van de basic versie 7.0 die stan¬ 
daard in de C-128(D) zit. Het mooie van 
dit programma is dat het functies onder¬ 
steund in de 80 cis mode en dat houdt dus 
in dat u beschikt over een resolutie van 
640 x 200 beeldpunten. Dus beschikt u 
niet over de mogelijkheid om in de 80 cis 


mode te werken dan heeft het geen nut om 
dit programma aan te schaffen, mits u van 
plan bent om een 80 cis monitor (RGB) 
aan te schaffen. En dan kunt u als nog be¬ 
slissen het programma aan te schaffen, 
want de mogelijkheden zijn ongekend. 
Ok er zijn al diverse tools op de markt ge¬ 
komen voor de 80 CLS ondersteuning, 
maar dit is toch veel beter, voor zover wij 
het hebben kunnen uitproberen. 

HET OPSTARTEN VAN BASIC 8.0. 

De bedoeling is dat als u het pakket hebt 
uitgepakt u als eerste de handleiding 
leest, de handleiding is vrij overzichtelijk 
maar wel in het Engels. Nadat de handlei¬ 
ding is doorgelezen hebt u al een idee van 
wat het programma allemaal kan. Nu doe 
je gewoon de masterflop in de drive en 
schakel uw computer aan, of reset de 
computer, en dan vervolgens de meldin¬ 
gen van het beeldscherm opvolgen. 

Wanneer u het programma hebt opgestart 
dan is het mogelijk om een RUNTIME of 
een EDITOR DISK te creëren. Als u nu 
voor RUNTIME kiest dan is het mogelijk 
om een diskette te preperen om program¬ 
ma’s te runnen. Het programma zal vra¬ 
gen om je Target’ diskette in je drive te 
doen en daarna weer je Master diskette. 


Dit zal, als u geen snelladder hebt, enige 
minuten nemen, maar het is wel de moeite 
waard. Met de EDITOR DISK is het pre¬ 
cies het zelfde als met de RUNTIME 
DISK alleen is deze diskette om je pro¬ 
gramma, zoals de naam al zegt, te editen, 
dus te creëren of aantepassen. 

Het opstarten 2. 

Alhoewel het programma copyrights 
heeft, is het programma niet uitgerust met 
een copieer beveiliging. Het programma 
komt zelfs met een ingebouwde backup 
mogelijkheid. De originele diskettes die u 
koopt zijn niet bedoeld om mee te wer¬ 
ken. De eerste keer als u het programma 
opstart, moet u vijf lege diskettes bij de 
hand hebben. Dan is het de bedoeling om 
één van de originele BASIC 8 diskettes in 
de drive te plaatsen en vervolgens de 
computer in te schakelen of te resetten 
(hangt er van af of de computer al aan 
stond). Afhankelijk van welke Master 
Disk u in de drive heeft geplaatst ver¬ 
schijnt er een menu of een prompt. Disk 1 
kant 1 heeft twee menu opties die u in 
staat stellen om een BASIC 8 Editor 
Work Disk of een BASIC 8 RunTime 
Disk te maken. U moet nu van elk disket¬ 
te één maken. De andere drie kanten van 
de diskettes stellen u in staat om een BA- 
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SIC PAINT Work Disk, een BASIC 8 Ba- 
sicWrite/BasicCalc Work Disk, of een 
Basic 8 Utility Work Disk te creeren. Als 
u nu alle vijf werk diskettes heeft ge¬ 
maakt kunnen u de originele diskettes 
veilig in de kast worden opgebergen. Die 
kunt u een andere keer weer gebruiken 
om nog meer werk of run diskettes mee te 
maken. De BASIC 8 Editor Work Disk is 
voor het schrijven en veranderen van ei¬ 
gen BASIC 8 programma's. Deze disk 
mag niet worden weggegeven. Deze disk 
bevat het complete editor systeem. De 
BASIC PAINT Work Disk bevat een 80 
kolloms kleuren tekenprogramma, en 
verder menu's, fonts en requestors. Het is 
een ‘RunTime’ programma, dat houd in 
dat het alleen de Runtime files bevat en u 
er dus niet mee kunt editen. Deze disk is 
een Autoboot disk dus alleen er in stop¬ 
pen, computer resetten en klaar is kees. 
Het programma kan met muis of met 
joystick werken. Met de RunTime disk is 
het mogelijk om via de legale manier ei¬ 
gen geschreven of bijgeleverde software 
‘weg te geven' of ‘te verkopen’. Deze be¬ 
vat de Runtime files welke nodig zijn om 
BASIC 8 programma’s te runnen (en ook 
deze is Autoboot). De BASIC 8 Ba- 
sicWrite/Basiccalc Disk is ook een Runti¬ 
me disk die diverse professionele pro¬ 
gramma’s bevat die in BASIC 8 zijn ge¬ 
schreven. BasicWrite is een grafische 
tekstverwerker, die kan worden gebruikt 
om documenten te creëren met diverse 
fonts, zestien kleuren en zelfs plaatje in 
het document. BasicCalc is een kleine 
spreadsheet met de mogelijkheid om met 
de ingegeven data grafieken te maken. En 
de Basic 8 Utilities Disk is een verzame¬ 
ling van Utilities, spelletjes en applicaties 
voor het maken van de meeste BASIC 8 
software. 

Configuratie. 

Als vereiste bij BASIC 8 is dat u beschikt 
over (natuurlijk) de C-128(D), en op z’n 
minst één disk drive (1541,1571,1581 of 
één van hun 'broertjes’), en als laatste een 
RGB Monitor. 

Eén van de grote voordelen is dat het pro¬ 
gramma de interne 64K RAM uitbreiding 
van de 8563 Video Display Chip (stan¬ 
daard ingebouwd in de C128D modellen, 
maar ook te krijgen voor de Cl28) onder¬ 
steund. Verder ondersteund het program¬ 
ma de externe RAM uitbreiding van de 
1700 (128K RAM) en van de 1750 (512K 
RAM), de 1351 proportionele muis, de 
standaard joystick en de meeste Dot Ma¬ 
trix Printers. 

Basic programma’s. 

De bijgeleverde basic programma’s zijn 
volledig geschreven in BASIC 8 met toe¬ 
voegingen van Basic 7.0. Bij het pakket 

zijn de volgende programma’s bijgele¬ 


verd : 

-BASIC PAINT 

- BASIC WRITE 

- BASIC CALC 

- en WORKBENCH 

Verder worden er nog diverse Basic ga¬ 
mes en Utilities geleverd. 

Het totaal lijkt dan ook op The Works’ 
(Amiga/PC). 

Basic Paint. 

Basic Paint is een 80 cis teken program¬ 
ma dat beschikt over zestien kleuren en 
een resolutie van 640 x 200 beeldpuntjes 
verder is het volledig in basic geschreven. 
Met dit programma is het mogelijk om te¬ 
keningen, brushes en iccons te maken, 
welke toepasbaar zijn in je eigen BASIC 
8.0 programma’s. Het programma biedt 
de standaard grafische functies (draw, cir- 
cle, box en polygon). Verder is het moge¬ 
lijk om tekst toe te voegen, gebieden te 
‘vullen’, en de tekeningen uit te printen. 
Maar het pakket gaat nog verder zoals 3- 
D. zoom, cut en paste. De besturing gaat 
via de muis of joystick, waarbij je het pijl¬ 
tje uit acht verschillende vormen kunt 
kiezen. Het programma werkt in alle vijf 
verschillende grafische mode onder¬ 
steund door BASIC 8.0. U kunt kiezen uit 
monochroom of vier kleuren resolutie 
(8x16, 8x8, 8x4 en 8x2). Het programma 
ondersteund de 1700 en de 1750 externe 
RAM uitbreiding modules. 

Basic Write. 

Basic Write is een tekstverwerker in de 
sfeer van ‘Desktop Publishing’ die werkt 
met zestien kleuren en waarbij het moge¬ 
lijk is om tekst te combineren met gra- 
phics. U kunt kiezen uit vijfentwintig ver¬ 
schillende tekst groten. U kunt ook ge¬ 
bruik maken van de standaard Commodo¬ 
re Grafische karakterset. Ondanks dat het 
een BASIC 8.0 programma is, is de snel¬ 
heid niet mis. De tekeningen en brushes 
van BASIC PAINT kunnen hierin wor¬ 
den toegepast, dus indrukwekkende do¬ 
cumenten. Verder heeft het programma 
alle functies die een goede tekstverwerker 
nodig heeft. En ook de nodige hoeveel¬ 
heid printerdrivers is aanwezig. 

Basic Calc. 

BASIC CALC is een vrij eenvoudig te 
bedienen spreadsheet, en heeft genoeg in 
huis om er prettig mee te werken. Het 
werkveld is opgebouwd uit 780 cellen (26 
rijen bij 30 kolommen). De rijen zijn ge¬ 
nummerd van A tot Z, en de kolommen 
van 0 tot 29. De commando’s worden in¬ 
gevoerd op de commando lijn. En er is 
een mogelijkheid om de ingevoerde gege¬ 
vens grafisch weer te geven. 


Workbench. 

Wat is dat die ‘Workbench’ ?. Nou dat zal 
ik uitleggen. Workbench is te vergelijken 
met een muis gestuurd menuprogramma. 
Dat houd dus in dat u vanuit dit program¬ 
ma diverse programma’s die op de zelfde 
schijf staan op te starten. Het is ook mo¬ 
gelijk het programma te gebruiken met 
een joystick, maar dat word bij het opstar¬ 
ten keurig gevraagd. Het programma is te 
vergelijken met de eenvoudige versie van 
GEOS die ook geleverd is voor de 
C128(D). Het voordeel is natuurlijk dat 
dit programma gemaakt is in BASIC 8. 
Het programma gebruikt ook de reeds 
aanwezige Basic 7.0 Dus zeer gemakke¬ 
lijk zelf aan te passen. Met de laatste ver¬ 
sie is het mogelijk om printer drivers te 
installeren en is in staat om BASIC 8 te¬ 
keningen te laten zien op het beeld of uit 
te printen d.m.v. het pijltje te wijzen en 
dan aan te klikken. De Workbench is in 
staat om tot 4 disk drives te ondersteunen, 
inclusief de 1541, 1571, en 1581 drives. 
Bij het opstarten zal het programma zelf 
nagaan hoeveel drives er aanwezig zijn 
en zal zich daar op aanpassen. Het pro¬ 
gramma werkt met pull down Windows en 
dat is vrij prettig om mee te werken. 

Utilities. 

De Utilities die bij het programma worden 
geleverd laten de mogelijkheden van BA¬ 
SIC 8 zien en zoals al gezegd zijn die on¬ 
gekend. Zo is er onderandere een pro¬ 
gramma dat ‘Caleidoscoop’ heet, het pro¬ 
gramma laat 128 kleuren op het beeld 
zien met een grafisch hoogstandje. Ver¬ 
der zijn er nog twee spelletjes op de schijf 
bijgevoegd namelijk Mastermind en 
Match. Ook is er een slideshow die alleen 
werkt met de 64K RAM Video Display 
Chip, maar zeker de moeite waard om te 
zien. 

Conclusie. 

Eén ding is zeker, de extra commando’s 
t.o.v. Basic 7.0 zijn zeer goed te gebrui¬ 
ken. Want wie wil niet met een resolutie 
van 640 x 192 beeldpunten en 16 kleuren 
werken. De ondersteuning van de 80 cis 
mode levert dan ook grafische hoogstand¬ 
jes op. De gebruiksaanwijzing laat op be¬ 
paalde punten het wel eens afweten. Het 
pakket BASIC 8 wordt geleverd door 
Free Spirit software inc. En als aanvulling 
op BASIC 8 is de BASIC 8 TOOLKIT te 
verkrijgen. Het is zeker de moeite waard 
om dit pakket tot U collectie toe te voe¬ 
gen. 

JOHAN & JOHAN 
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Datahome Amsterdam 


Voorraad 128 


Datum : 20-11-89 


Tabel leveranciers 


N adat de Commodore 128 al 
een aantal jaren in gebruik is 
wordt de vraag naar software voor 
deze onderschatte computer 
steeds groter. Nu praten we niet 
over spelletjes, in de 64 mode zijn 
de spelen die er te gebruiken zijn 
niet te tellen maar over 
gebruiksprogramma’s die alle 
mogelijkheden van de Commo¬ 
dore 128 volledig te benutten. Da¬ 
tahome is een leverancier van 
software die heeft ingezien dat 
deze goedkope computer zeer 
goed te gebruiken is voor het 
bedrijfsleven. Al eerder hebben 
we bekeken fakturering en kas¬ 
boek, ditmaal zijn we met voor¬ 
raadbeheer aan de slag gegaan. 


Al bij het uitpakken valt op dat er erg veel 
zorg is besteedt aan deze software. Het 
programma bestaat uit een beveiligde dis¬ 
kette, en een prima handleiding. Deze 
handleiding is niet een gekopieerd Engel¬ 
stalig blaadje, het zijn maar liefst 62 pagi¬ 
na’s A5. En helemaal in het Nederlands 
geschreven. Een extra service die Data¬ 
home kan bieden is het aanpassen van de 
software aan uw eigen wensen. Voorraad- 
128 is een programma dat als opslag kan 
dienen voor de kontrole en het beheer van 
uw voorraden. Het unieke van dit pakket 
is het Elektronisch Kas Boekingen sys¬ 
teem, kortweg EKS. Dit is te vergelijken 
met een moderne kassa. Alleen hier be¬ 
hoeven geen prijzen te worden ingevoerd, 
er wordt gewerkt met artikelnummering. 
De voorraad wordt na elke handeling bij¬ 
gewerkt en is dus altijd aktueel. Wordt er 
gevraagd of een bepaald artikel aanwezig 
is in het magazijn dan is het simpelweg 
intikken van de naam of de code voldoen¬ 
de. Niet alleen is er dan direkt te zien hoe¬ 
veel er nog van dit artikel zijn, alle verde¬ 
re gegevens zoals inkoopprijs, verkoop¬ 
prijs, leverancier zijn op het scherm te le¬ 
zen. 

Wat is er nodig 

tit pakket maakt gebruik van een Commo¬ 
dore 128-D en werkt alleen in de 80 ko- 
loms mode. Heeft U een 'gewone’ Cl 28 


dan moet de diskdrive een 1571 zijn. 
Deze kan dubbelzijdig werken en dit is 
noodzakelijk voor de goede werking van 
het programma. Verder heeft U nog een 
printer nodig. Bijna alle printers die door 
de C 128 worden ondersteund kunnen 
worden gebruikt. De printer moet 136 ka¬ 
rakters op een A4 pagina kunnen printen. 
Dit gebeurt in de zogenaamde condensed- 
mode. Bij de nieuwere printers gebeurt 
dit door software matig de code te verstu¬ 
ren. Bij sommige oudere printers dient dit 
door het omzetten van één of meerdere 
schakelaartjes te gebeuren. Een kleuren 
monitor werkt prettig, maar is niet direkt 
noodzakelijk. Een monochrome monitor 
met 80 karakters werkt ook goed. 

Het programma 

Het programma wordt geleverd op een 
beveiligde diskette. Het is daarom voor¬ 
zien van een uniek registratie nummer. 
Als U het programma krijgt ziet er een 
kaartje bij waarop een toegangscode is 
vermeld. Het programma wordt gestart 
door ‘booten’, op een andere manier la¬ 
den kan schade toebrengen aan de disket¬ 
te. Nu wordt er om de toegangscode ge¬ 
vraagd, U heeft driemaal de gelegenheid 
om de juiste code in te toetsen anders 
wordt het programma gereset. Deze pro¬ 
gramma schijf wordt niet gebruikt voor 
het wegschrijven van de gegevens. Hier¬ 
voor dient een dataschijf te worden aan¬ 
gemaakt. Heeft U de toegangscode juist 
ingetoetst dan wordt het programma ver¬ 
der geladen. Nu wordt er nog gevraagd 
om een paar belangrijke gegevens, de da¬ 
tum en de tijd. Deze zijn belangrijk om 
later eventuele mutaties op de juiste 
plaats te kunnen uitvoeren. Bij het eerste 
maal opstarten moet er eerst een data¬ 
schijf worden aangemaakt. Hierop kun¬ 
nen maximaal 1500 voorraad gegevens 
worden bijgehouden. Heeft U er meer dan 
moet er een tweede of zelf meerdere data- 
schijven worden aangemaakt. Op deze 
schijf staan ook de persoonlijke gegevens 
van uw bedrijf. Buiten de naam en adres 
gegevens worden hier ook ingevuld de 
BTW percentages en de wijze van mute¬ 
ren. Een tweede handeling die we hier 
eenmalig, buiten het muteren, moeten uit¬ 
voeren is het maken van een lijst van le¬ 
veranciers. Naam, adres en telefoon wor¬ 
den in de lijst verwerkt. Er kunnen 200 


001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 


F1 = stoppen F3 = Toevoeg 


adressen van leveranciers worden ge¬ 
bruikt. De nummering gebeurt automat¬ 
isch en het geheel is menu gestuurd. Nu 
zijn de standaard handelingen gebeurt en 
kan het programma worden gebruikt. 

Het programma start met het hart, het 
centrale gedeelte van het programma, dit 
is het hoofdmenu. In dit menu heeft U 
acht verschillende keuze mogelijkheden. 
Algemene procedures, invoeren artike¬ 
len, wijzigen artikelen, printen overzich¬ 
ten, muteren transacties, voorraden bij¬ 
werken, opvragen artikelen en het pro¬ 
gramma afsluiten. 

1. Algemene procedures. 

In dit submenu zijn weer zes menu-onder- 
delen samen gebracht. De standaard ge¬ 
gevens hebben we hier reeds ingevoerd, 
maar kunnen via deze optie worden ver¬ 
anderd. Het financiële verslag geeft een 
overzicht van alle inkopen, verkopen, 
brutowinst maar ook de betaalde en ont¬ 
vangen BTW. Een extra dataschijf wordt 
via de derde keuze gemaakt. Veel ver¬ 
standiger is het om een backup te maken 
van de eerste dataschijf zodat leverancier 
gegevens niet nogmaals behoeven te wor¬ 
den ingevoerd. Een extra dataschijf, met 
andere gegevens kan hier natuurlijk ook 
worden aangemaakt. Reset databestanden 
brengt U terug naar de beginsituatie, dus 
alles wordt op 0 gezet. De leverancier ge¬ 
gevens kunnen hier worden bijgewerkt. 
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ROGRAMMA - VOORRAAD Cl28 

Tijd.: 10:10 


1 = vorig blad 

<- = vervolgblad 


Tabelgegevens 


Maximale invoer - : 200 
Reeds ingevoerd - : 000 
Nog ruimte voor - : 200 


in F5 - wijzigen F7 = vervallen Maak uw keuze 


aangevuld of veranderd. Afsluiten van 
een periode gebeurt via de laatste optie uit 
dit menu. Dit afsluiten kan gebeuren per 
week, maand of per kwartaal alle opge¬ 
slagen gegevens worden hier getotali¬ 
seerd. 

2. Invoeren artikelen. 

In dit submenu zijn ook weer zes menu- 
onderdelen ondergebracht. Via deze optie 
worden alle artikelen ingevoerd. Er kun¬ 
nen hier zoals reeds eerder gezegd 1500 
artikelen worden gebruikt. De andere mo¬ 
gelijkheden zijn wijzigen, opvragen op 
nummer, op alfabet en ook op nummer. 
Via deze optie worden ook de eventuele 
adres stickers uit geprint. 

3. Wijzigen artikel. 

Dit onderdeel is bijna het zelfde als menu 
optie twee, U kunt hier alle ingevulde ge¬ 
gevens op een eenvoudig manier aanpas¬ 
sen. 

4. Printen overzichten. 

In dit menu zijn zeven onderdelen verza¬ 
meld. Zij hebben allemaal betrekking op 
het maken van overzichten. Voordat Ü 
gaat printen krijgt U eerst een overzicht 
van instellingen van de meest voorko¬ 
mende printers. Ook wordt hier gekontro- 
leerd of de printer wel aanstaat, zodat er 
geen foutmelding kan komen en het pro¬ 


gramma zou vastlopen. Bij het uitprinten 
van een artikelen lijst wordt er eerst ge¬ 
sorteerd. Dit kan zowel op artikelnaam 
als op nummer geschieden. Het sorteren 
gaat redelijk snel, 1000 records in onge¬ 
veer 2 minuten. Een mutatielijst is een 
lijst met overzichten met veranderingen 
die reeds verwerkt zijn. Ook in dit onder¬ 
deel kunt U werken met de EKS. Printen 
van leveranciers en het printen van een 
verkooplijst spreken voor zich. Ook via 
dit menu kunt U etiketten uitprinten, dit 
kan zowel met als zonder de naam van de 
leveranciers. 

5. Muteren transacties. 

Dit menu onderdeel is de kern van het 
EKS systeem. Veranderingen worden via 
dit menu ingebracht. Het geheel bestaat 
uit vijf submenu’s. Invoeren, wijzigen, 
opvragen, kasboek bijwerken en erg be¬ 
langrijk mutaties verwerken. Procedure 5, 
verwerken gegevens, is de eigenlijke dag 
afsluiting. Alle (winkel) verkopen wor¬ 
den naar het mutatie bestand weggeschre¬ 
ven. In dit menu kunt U weer een volledig 
overzicht krijgen van de stand van zaken, 
en dit op elk gewenst moment. In het EKS 
systeem kunnen 200 mutaties verwerkt 
worden. 

6. Voorraden bijwerken. 

Dit menu onderdeel wordt er gekozen als 


er artikelen bijkomen. Dit is bijvoorbeeld 
het geval als er artikelen worden inge¬ 
kocht. Ook kunnen er voorraden uit het 
magazijn worden gehaald zonder dat er is 
verkocht. Op het scherm wordt weergege¬ 
ven o.a. weergegeven wat de oude- en de 
nieuwe voörraad is. 

7. Opvragen artikelen. 

Dit onderdeel wordt gebruikt als U gege¬ 
vens over een artikel wilt hebben. Dit is 
bijvoorbeeld het geval als er een artikel 
moet worden ingekocht, en U weet niet 
meer precies wie de leverancier van dat 
bewuste artikel is. 

8. Programma beëindigen. 

Voor dat het programma daadwerkelijk 
wordt beëindigd moet altijd eerst de dag 
worden afgesloten. Dit is niet nodig als er 
geen mutaties zijn geweest via het EKS. 
De tweede optie, een backup maken is 
wel gewenst. Gebeurt er iets met uw kost¬ 
bare dataschijf, b.v. uw frisdrank gaat er 
over heen, dan is het prettig te weten dat 
er nog een kopie van uw schijf is. Hier¬ 
door voorkomt U dat er weken werk ver¬ 
loren gaat. Hierbij is wel het programma 
DOS-Shell noodzakelijk dat U bij de aan¬ 
schaf van uw computer heeft gekregen. 

Conclusie: 

Voorraad 128 is een programma dat voor 
een klein of middelgroot bedrijf een pri¬ 
ma alternatief kan zijn voor een dure 
computer configuratie. Het programma 
werkt goed, de prijs- kwaliteits vehou- 
ding is gunstig, redelijk snel, maar wat 
belangrijker is het is erg betrouwbaar. Dit 
alles gekombineerd met het feit dat Data- 
home een gerenommeerd software leve¬ 
rancier is, dus de garantie en begeleiding 
is aanwezig, maakt dat dit pakket een 
goede keus is. 

Prijs Voorraad-128 ƒ 299,50 
Leverancier Datahome Amster¬ 
dam 

Inlichtingen 020-837367 

RBG 
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Amigo C cursus 





cccc 


40 return(start); 


43 UBYTE *allocmw(size,type) 

44 LONG size,type; 

45 f 

46 extern struct memwatch ‘mainwatch; 

47 

48 struct memwatch ‘newmw; 

49 UBYTE *watch=AllocMem(size,type); 

50 

51 if(mainwatch==NULL) 

52 { 

53 if(!(newmw=mainwatch=(struct memwatch *) 

54 AllocMem(sizeof(struct 
memwatch),MEMF_CLEARiMEMF_PUBLIC))) 


55 

56 

57 


pYintf("help"); 
Exit(21) ; 


else 

{ 

newmw=endmw(mainwatch); 

if(!(newmw=newmw->nextmem=(struct memwatch *) 
AllocMem(sizeof(struct 
memwatch),MEMF_CLEAR!MEMF_PUBLIC))) 


66 

67 

68 

69 

70 

71 

72 

73 | 


printf{"help"); 

Exit(22) ; 

) 

) 

newmw->size=size; 
newmw->pointer=watch; 
return(watch); 


75 VOID freemw(pointer,size) 

76 UBYTE ‘pointer; 

77 LONG size; 

extern struct memwatch ‘mainwatch; 
struct memwatch ‘seeker,*lastseek=NULL; 
inwatch!=NULL) 



N a vele maanden absentie zijn 
we weer terug. Speciaal nu 
voor de weer donkerder worden¬ 
de winterdagen is hier het vervolg 
en tevens een nieuwe start van 
onze Amiga C Kursus. 

Het heeft enige tijd geduurt voordat we 
weer terug waren. De bedoeling was dat 
deze aflevering al eerder afgedrukt zou 
worden, echter een technisch manke¬ 
mentje verhinderde dit. Kwestie van een 
te los vingertje die te gemakkelijk JA ant¬ 
woordt op ‘verwijder CKURS.TXT 
(j/n)’. Goed, laten we het niet meer over 
deze fout hebben, let's play ball! 

In de vorige afleveringen, 1, 2 en 3, heb¬ 
ben we ons beperkt tot standaard C. Hie¬ 
rin komt nu verandering. Geheel in 
overeenstemming met de kop bij dit arti¬ 
kel, beginnen we nu met programmeren 
van de Amiga in C. 


Intuition 

Waarmee kunnen we beter beginnen dan 
met Intuition te beschrijven. Intuition is 
dat deel van het besturingssysteem waar¬ 
mee de meeste gebruikers van de Amiga 
mee in aanraking komen. Het zorgt voor 
het op de juiste manier omzetten van di¬ 
verse soorten invoer, zoals muis, joystick, 
diskdrive, toetsenbord, etcetera. Deze ge¬ 
gevens worden voorbereid en op een be¬ 
paalde manier worden deze dan ter be¬ 
schikking gesteld. Een tweede aspect van 
Intuition is de programmering van de 
beeldschermuitvoer door middel van 
Windows, lees vensters, en Sereens, lees 
schermen. Samenvattend kunnen we dus 
zeggen dat Intuition, op een gebruikers¬ 
vriendelijke manier, een medium is tus¬ 
sen de Amiga en de gebruiker, dat bent u! 

We kunnen een grove onderverdeling 
maken van het grafische besturingssy- 
teem. Dit vormt tevens de rode draad door 


deze C cursus heen. Al eerste en de meest 
aan het oppervlakte liggende laag, Intuiti¬ 
on. Als de functies behorende bij Intui¬ 
tion zijn te vinden in de ‘intuition.libra- 
ry’. Intuition, op zijn beurt, is op een lager 
gelegen laag gebaseerd, de graphics-pri- 
mitives. De routines die deze vonnen 
kunt u vinden in de ‘graphics.library’. 
Tenslotte zijn we dan aangeland op het 
machineniveau. Op dit niveau zult u de 
machine rechtstreeks aan moeten spre¬ 
ken. 

In de ‘ intuition.library’ vinden we diverse 
subroutines die op Intuition niveau wer¬ 
ken. Hoe kunnen we deze aanspreken? 
Zoals u mischien al vermoed, de ’intui- 
tion.library' moet eerst geopend worden. 
Hiervoor gebruiken we een functie die uit 
de ‘exec.library’ komt. Nu zult u zich af¬ 
vragen, deze ‘exec.library" moet toch ook 
geopend worden? Waar en niet waar. 
Waar in zoverre dat deze ook geopend 
dient te worden en niet waar daar deze 
automatisch bij het opstarten van het sys- 
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teem al geopend wordt. Machinetaal 
programmeurs zullen dit weten doordat 
zij de pointer naar deze library op locatie 
$000004 in het geheugen kunnen vinden. 
Voor ons is dit van minder belang. We 
kunnen de routines van de ‘exec.library' 
gewoon oproepen zonder een library te 
openen. Andere libraries, daarentegen, 
dienen wel geopend te worden. Hiervoor 
levert ‘exec.library’ de functie OpenLi- 
brary(). Voorzien van enige parameters 
zal deze functie de pointer naar de in 
OpenLibraryO opgegeven library terug¬ 
geven. Wat voor parameters moeten wor¬ 
den meegegeven? 

LibraryNaam=OpenLibrary(LlBRARY 
NAAM, VERSIE); 

Eerst maar een voorbeeld. Stel u wilt de 
‘intuition.library’ openen. Het volgende 
voorbeeld doet dit. 

lntuitionBase=(struct IntuitionBase *) 
OpenLibraryC intuition.library " ,0L); 

In de variabele IntuitionBase die van het 
type ‘struct IntuitionBase’ is zal nu de 
pointer staan naar de ‘intuition.library’. 
De declaratie van de variabele Intuition¬ 
Base luidt dan ook als volgt; 

struct IntuitionBase ^IntuitionBase; 


Hierover straks meer. Eerst nu weer terug 
naar de NewWindow structuur. U kunt 
deze niet zomaar bovenaan in het pro¬ 
gramma declareren. De structure wordt 
opgebouwd in het include bestand ‘intui- 
tion/intuition.h’. Include deze met het 
#include commando en u kunt alle de in 
dit bestand beschreven structures en ma¬ 
cro’s gebruiken. Om een idee te krijgen 
hoe de NewWindow structure er uit ziet, 
bekijk figuur 1 eerst eens. Zoals u ziet 
dienen er nogal enige elementen ingevuld 
te worden. We gaan de elementen in logi¬ 
sche volgorde behandelen. 



• Flags, ook voor het Window zijn 
aparte mogelijkheden gereserveerd, 
zoals de mogelijkheid tot windowver- 
groting.-versleping, -sluiting, etcete- 
ra. Voor meer informatie omtrent 
deze flags zie het aparte kader bij dit 
artikel. 

• FirstGadget, kan een pointer naar het 
eerste door u zelf gedefinieerde gad¬ 
get bevatten. 

• CheckMark, kan een pointer naar een 
Image structuur bevatten. In deze 
Image structuur wordt een nieuw ac- 
tiverings haakje gedefinieerd die u 
aan kunt treffen in menu’s. 

• Title, dient een pointer naar een ge- 
heugendeel te bevatten waarin de ti¬ 
tel van het Window is opgeslagen. 
Als u geen titel wilt moet hier NULL 
ingevuld worden. 

• Screen. Hierin dient u een pointer 
naar het scherm te plaatsen waarin 
het Window geplaatst moet worden. 
Komt het Window in het WorkBench 
scherm terecht dan mag u hier NULL 
invullen. 


We willen de pointer naar de library op¬ 
slaan dus dienen we de variabele 
ook als de pointer NAAR het type 
te declareren. Lijkt even een lastige 
woordenbrij, is echter zeer simpel i 

na wat experimenteren. .jg 

Als we éénmaal de ‘intuition.libra¬ 
ry’ geopend hebben staat ons een 
heel scala van functies en procedures tot 
onze beschikking. Even een kleine op¬ 
somming van wat er te vinden is. 

OpenScreenO, CloseScreenO, 
OpenWindow(), CloseWindowt), 
DisplayAlertl), DrawBorderO, 

AddGadget(), MoveScreen(), 
MoveWindowO en nog vele andere. 

De NewWindow structuur 

Hebben we éénmaal de ‘intuition.library’ 
geopend dan ligt de halve Amiga wereld 
voor ons open. Toch beginnen we bij het 
begin. Vanuit BASIC was het openen van 
een Window of Screen zeer simpel. Roep 
het commando op en geef enkele parame¬ 
ters mee en het hele verhaal wordt wel op 
je beeldscherm gedumpt. Nee, helaas in C 
is het allemaal niet zo simpel. 

Een Window of venster beschikt over 
twee structuren. De eerste is de New¬ 
Window structuur. Deze dient u te ge¬ 
bruiken, voordat u een Window geopend 
heeft, als u een Window WILT openen. 
De tweede structuur is de Window struc¬ 
tuur. Heeft u eenmaal een Window geo¬ 
pend en wilt u toegang tot de gegevens 
krijgen van dit Window dan zult u een 
Window structuur moeten gebruiken. 



LeftEdge en TopEdge, moeten de co¬ 
ördinaten van resp. de linker- en bo¬ 
venhoek bevatten. De x-waarden zul¬ 
len afhankelijk van de gekozen 
schermresolutie zijn. doch zullen va- 
riëeren van 0 tot maximaal 600. Ook 
de y-waarden zijn afhankelijk van de 
schermresolutie en liggen in het be¬ 
reik van 0 tot maximaal 500. 

Width en Height, hierin geeft u op 
resp. hoe breed en hoog het venster 
moet worden. Let erop, de waarden 
van Width+LeftEdge mag niet groter 
zijn dan het maximale aantal pixels 
waarover u in de huidige schermmo- 
de de beschikking heeft. Ditzelfde 
geld ook voor Height+TopEdge. 

DetailPen en BlockPen, ze dienen de 
kleurcode van de voorgrond- en ach- 
tergrondkleur te bevatten. 

IDCMPFlags, wilt u gebruik maken 
van de IDCMP faciliteit van de Ami¬ 
ga dan dient u hierin op te geven 
welke mogelijkheden u wilt gebrui¬ 
ken. Hiervoor zijn bepaalde FLAGS 
gecreërd die u in kunt vullen. Hier¬ 
over meer in een volgende afleve¬ 
ring. 


• BitMap, dient een pointer naar een 

eigen gedefinieerde BitMap 
structuur te bevatten. Hiermee 
r reserveert u op eigen wijze ge- 

?- heugen voor het Window. Min- 

Width en MinHeight, bepalen 
de minimale breedte en hoogte 
van het Window als u gebruik 
maakt van de WindowSizing optie. 

• MaxWidth en MaxHeight, idem als 
vorige alleen nu bepaalt u de maxi¬ 
male breedte en hoogte. 

Nu we alle elementen globaal besproken 
hebben wordt het tijd voor een klein voor¬ 
beeld. Bekijk programma 1 eerst eens. Op 
zich een heel simpel programmaatje om 
een Window te openen. Wat voor functie 
wordt nu gebruikt om een Window te 
openen? Afgezien van de functie OpenLi¬ 
braryO is het er maar ééntje. De functie 
OpenWindow() opent een Window waar¬ 
van u de eigenschappen gedefinieerd 
heeft in een NewWindow structuur. Het 
zal u wel duidelijk zijn, de functie dient 
dus te weten welke NewWindow strucuur 
hij moet gebruiken. De enigste parameter 
die OpenWindowO heeft is dus een poin¬ 
ter naar een NewWindow structuur. Kort 
gezegd, 

pointer naar een Window = 

OpenWindow( pointer naar een 
NewWindow); 

Zoals u uit bovenstaande definitie kunt 
zien, geeft de functie een pointer terug. 
Deze pointer slaat u op in een variabele 
van het type 'struct Window’. Begint het 
al een beetje te dagen? Deze Window 
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structuur wordt ingevuld door de Open- 
Window() functie. Wilt u nu toegang heb¬ 
ben tot een geopend Window dan dient u 
een pointer te hebben naar de Window 
structuur die bij het Window hoort. Nog 
even kort samengevat, een NewWindow 
structuur vult u met de eigenschappen van 
een Window zoals u het wilt hebben. Ver¬ 
volgens geeft u deze NewWindow struc¬ 
tuur door aan de functie OpenWindow(). 
Een Window structuur gebruikt u alleen 
als u eigenschappen wilt weten van een al 
geopend Window. Bekijk programma 1 
nu nog een keer vanuit dit oogpunt. 

De Window structuur 

We hebben al uitgelegd waarvoor u een 
Window structuur zult of wilt gebruiken. 
Hoe ziet zo’n Window structuur er uit? 
Figuur 2 geeft een opsomming van de ele¬ 
menten van een Window structuur. In te¬ 
genstelling tot de NewWindow structuur 
gaan we niet de elementen van de Wind¬ 
ow structuur bespreken. Wilt u hier meer¬ 


dere details over weten, bekijk dan de li¬ 
teratuurlijst aan het einde van deze afle¬ 
vering. Hier zult u meer informatie over 
boeken kunnen vinden. 

De Window structuur is eigenlijk nog be- 
langrijker dan de NewWindow structuur 
daar u de Window structuur in alle opera¬ 
ties, die Windows manipuleren, nodig 
zult hebben. De structuur wordt opge¬ 
bouwd in het include bestand ‘intui- 
tion/intuition.h’. Vergeet dus niet deze 
eerst te includen. Gemakkelijker is het in¬ 
clude bestand 'intuition/intuitionbase.h' 
te includen daar deze toch al nodig is voor 
de IntuitionBase declaratie. In het bestand 
'intuition/intuitionbase.h’ wordt het in¬ 
clude bestand ‘intuition/intuition.h’ gein- 
cluded. Nadat u de bestanden geincluded 
heeft, komen we aan bij de globale varia¬ 
belen declaratie. Bij eenvoudige pro¬ 
gramma’s kunt u ‘struct Window’ en 
’struct NewWindow’ wel globaal decla¬ 
reren. Welke declaraties zijn voor het 
openen van een Window persé noodzake¬ 
lijk? Ten eerste natuurlijk IntuitionBase, 


daar u anders geen toegang zou kunnen 
krijgen tot de ’intuition.library’. struct 
IntuitionBase *IntuitionBase; zorgt er¬ 
voor dat deze variabele bekend is. Verder 
hebben we een Window structuur nodig 
dus volgt er een soortgelijke declaratie, 
struct Window *MijnWindow;. Nu ko¬ 
men we bij de declaratie van NewWind¬ 
ow aan. U mag deze laten auto-initialise- 
ren, dwz. u vult de waarden meteen in bij 
het declareren van de NewWindow struc¬ 
tuur. Een klein voorbeeld. 

struct NewWindow NW = { 

0,0,640,256, 

0x00,0x01, 

VANILLAKEY, 

SMART_REFRESH|BORDERLESS|RM 
BTRAP, 

NULL,NULL,NULL,NULL,NULL, 

0,0,0,0,CUSTOMSCREEN }; 

Hierdoor worden alle elementen in logi¬ 
sche volgorde ingevuld. Er is echter wel 
een nadeel aan. U dient hierbij strikt de 
volgorde van de structure aan te houden. 


De flags behorende bij NewWindow. 


B ij elk venster behoren een aantal flags. Met deze 
flags is het mogelijk één of meerdere opties te 
selecteren die Intuition biedt. De opties zijn grofweg 
onder te verdelen in een aantal groepen. Flags die 
betrekking hebben op de Gadgets. Flags die bepa¬ 
len hoe met de data van het scherm wordt omge¬ 
sprongen. Vervolgens hebben we een groep die de 
flags omvat die bepalen wat voor soort venster het 
wordt en als laatste de overige flags die niet bij de 
voorgaande groepen in te delen zijn. 

Gadget flags 

° WINDOWDRAG: Door op te titelbalk te ‘klikken’ kunt u 
het venster verschuiven. 

° WINDOWDEPTH: Hierdoor komen twee gadgets tevoor¬ 
schijn waarmee u het venster afwisselend op de voor- en 
achtergrond kunt plaatsen. 

° WINDOWCLOSE: Als u een venster weg wilt kunnen klik¬ 
ken gebruikt u deze optie. Het zorgt ervoor dat het afsluit- 
gadget opgenomen wordt. Het venster zal dan nog niet me¬ 
teen verdwijnen als u hierop klikt. Het zal een melding aan 
het programma doorgeven waarop het programma het ven¬ 
ster af moet sluiten. 

° WINDOWSIZING: Door deze optie verschijnen de ‘sizing’ 
gadgets onderin het venster waarmee het venster in grootte 
te variëren is. 

0 SIZEBR1GHT: Het ‘sizing' gadget wordt in de rechterrand 
afgebeeld. 

° SIZEBBOTTOM: Het ‘sizing' gadget wordt in de onder¬ 
rand van het venster geplaats. 

Refresh flags 

° SIMPLE_REFRESH: Intuition doet in dit geval helemaal 
niets. Het programma krijgt een signaal waarna het, het 
venster moet herstellen. 


0 SMART_REFRESH: Zodra een venster geheel of gedeelte¬ 
lijk wordt bedekt door een ander venster, zal het program¬ 
ma de grafische gegevens van het bedekte deel opslaan en 
weer tevoorschijn halen als het bedekkende venster weer 
verdwijnt. 

0 NOCAREREFRESH: In de twee voorgaande modi zal het 
programma gewaarschuwd worden als het venster hersteld 
(moet) word(t)/(en). Deze melding onderdrukt u met NO¬ 
CAREREFRESH. 

Venstermodl flags 

° BACKDROP: Het betreffende venster zal altijd het achter¬ 
ste venster zijn. 

0 SUPER_BITMAP: Het venster is veel groter dan op het 
scherm zichtbaar is. 

° BORDERLESS: Intuition tekent geen rand (=border) om 
het venster. 

* GIMMEZEROZERO: Het 'binnenblad’ van het venster en 
de border worden gescheiden behandeld. Tekenen door de 
border behoord hierdoor tot de mogelijkheden. Een voor¬ 
deel is dat deze methode een snellere vensterafhandeling 
oplevert. 

Overige flags 

0 ACTIVATE: In deze modus zal het venster meteen actief 
worden. Invoer zal dus ook meteen via dit venster geschie¬ 
den. 

° REPORTMOUSE: De actuele positie van de muis zal 
voortdurend doorgegeven worden. 

° RMBTRAP: Right Mouse Button TRAP. Het signaal van 
de rechter muisknop zal gelijk zijn aan het signaal van de 
linker muisknop. 

Wilt u geen gebruik maken van de vensterflags vul dan 

’NULL’ in. 
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U mag dus niet de elementen door elkaar 
heen halen daar anders toekenningen in 
de verkeerde elementen terecht komen. 
Een andere oplossing zou dus zijn de ele¬ 
menten pas in de main() of andere proce¬ 
dure cq. functie te initialiseren. Op deze 
manier vult u de elementen op dezelfde 
wijze in zoals u anders een structure in¬ 
vult. Ook hiervan een kort voorbeeld, 
struct NewWindow NW; 
main() 

{ 

NW. LeftEdge=0 ; 

NW.Flags=WINDOWDRAG|ACTIVATE; 

NW. TopEdge=0 ; 


Zoals u ziet mag u hierbij de elementen 
wel door elkaar heen halen doordat u ge¬ 
dwongen bent op te geven welk element 
u in wilt vullen. 

Programma 3 geeft een voorbeeld hoe 
men het aantal Windows kan tellen door 
gebruik te maken van het element 
NextWindow uit de Window structuur. 
Net zo lang tot dit element een NULL be¬ 
vat, zal de routine door de gelinkte lijst 
van Window structuren springen. Aan het 
einde geeft het, het aantal gevonden 
Windows terug. 

Window sluiten 

Als u éénmaal een Window geopend 
heeft zal u onvermijdelijk ook weer een 
Window afwillen sluiten. Het sluiten van 
een Window is nog gemakkelijker dan het 
openen ervan. U weet u nog te herinneren 
dat u een pointer naar een Window struc¬ 
tuur terugkreeg bij het openen van een 
Window. Deze pointer heeft u opgeslagen 
in een variabele van het type ‘struct 
Window’. Deze pointer heeft u nu ook 
weer nodig bij het sluiten van het Wind¬ 
ow. Om een Window te sluiten dient u ge¬ 
bruik te maken van de functie Close- 

Figuur 1. De NewWindow structuur. 


struct NewWindow = { 

SHORT LeftEdge; 

SHORT TopEdge; 

SHORT Width; 

SHORT Height; 

UBYTE DetailPen; 

UBYTE BlockPen; 

ULONG IDCMPFlags; 

ULONG Flags; 
struct Gadget 
*FirstGadget ; 
struct Image *CheckMark; 
UBYTE *Title; 
struct Screen ‘Screen; 
struct BitMap *BitMap; 
SHORT MinWidth; 

SHORT MinHeight; 

SHORT MaxWidth; 

SHORT MaxHeight; 

USHORT Type; 

} ; 


WindowO- Geef in CloseWindowO als 
parameter de pointer naar het Window 
mee op en het Window zal afgesloten 
worden. Een voorbeeld. Stel u heeft een 
Window geopend waarvan u de terugge¬ 
kregen pointer opgeslagen heeft in Mijn- 
Window die u gedeclareerd heeft als 
‘struct Window *MijnWindow;’. Sluit 
het Window nu weer door op te geven; 
CloseWindow(MijnWindow); 

Dit is alles, meer is er niet aan! 

Het Window zal gesloten worden en u 
bent klaar. Probeer nu geen functies meer 
los te laten ojd het gesloten window want 
het systeem zal zeker 'crashen'. 

Windows en hun functies 

Zoals u nu gezien heeft kunt u een aantal 
mogelijkheden van Windows in de New¬ 
Window structuur instellen. Toch zal het 
gebeuren dat u de Windows, nadat ze 
geopend zijn, wilt aanpassen. Dit is mo¬ 
gelijk doordat er een aantal functies ont¬ 
worpen zijn die specifieke uitwerkingen 
hebben op Windows. We gaan ze in alfa¬ 
betische volgorde behandelen. 

ActivateWindow(pointer naar Window): 
als u een Window wilt activeren, gebruik 
dan deze functie. 

ClearPointer(pointer naar Window): deze 
functie hersteld de muispointer weer in 
z’n originele, dwz, door de system- 
configuration bepaalde, vorm. 
CloseWindow(pointer naar Window): 
sluit het opgegeven Window. 
CloseWorkBench(): een wat vreemde 
eend in de bijt. Toch wel handig, vooral 
als u maar over 512K beschikt. Hiermee 
sluit u de WorkBench. Let op, er mag 
hierna ook geen uitvoer meer naar het 
standaarduitvoer scherm van de Work¬ 
Bench gaan. 

MoveWindow(pointer naar Window, del- 
taX, deltaY): hiermee verschuift u een 
Window over deltaX en deltaY pixels. 
Let op, het Window mag niet buiten de 
grenzen van het scherm vallen. 
OpenWindow(pointer naar NewWind¬ 
ow): opent een Window met in New¬ 
Window vermelde eigenschappen. 
OpenWorkBenchQ: hiermee opent u de 
WorkBench weer. 

SetPointer(pointer naar Window, pointer 
naar Image structure (voor pijl), hoogte 
van sprite, breedte van sprite, x-aanwijs- 
punt, y-aanwijspunt): als u de muispoin¬ 
ter in het Window van vorm wilt laten 
veranderen, dan kunt u gebruik maken 
van deze functie. 

SetWindowTitles(pointer naar Window, 
pointer naar tekstbuffer voor Window, 
pointer naar tekstbuffer voor Screen): als 
u, na opening van het Window, de titel 
nog wilt veranderen dan is dit mogelijk 
door gebruik te maken van deze functie. 
Ook de schermtitel is hiermee te verande- 


Figuur 2. De Window structuur. 


struct Window = { 

struct Window *NextWindow; 
SHORT LeftEdge; 

SHORT TopEdge; 

SHORT Width; 

SHORT Height; 

SHORT MouseX; 

SHORT MouseY; 

SHORT MinWidth; 

SHORT MinHeight; 

USHORT MaxWidth; 

USHORT MaxHeight; 

ULONG Flags; 
struct Menu *MenuStrip; 
UBYTE *Title; 
struct Requester 
*FirstRequest; 
struct Requester 
*DMRequest; 

SHORT ReqCount ; 
struct Screen ‘WScreen; 
struct RastPort *RPort; 
BYTE BorderLeft; 

BYTE BorderTop; 

BYTE BorderRight; 

BYTE BorderBottom; 
struct RastPort 
*BorderRPort; 
struct Gadget 
*FirstGadget; 
struct Window *Parent; 
struct Window ‘Descendant; 
BYTE PtrHeight; 

BYTE PtrWidth; 

BYTE XOffset; 

BYTE YOffset; 

ULONG IDCMPFlags; 
struct MsgPort *UserPort; 
struct MsgPort 
*WindowPort; 
struct IntuiMessage 
*MessageKey; 

UBYTE DetailPen; 

UBYTE BlockPen; 

struct Image *CheckMark; 

UBYTE *ScreenTitle; 

SHORT GZZMouseX; 

SHORT GZZMouseY; 

SHORT GZZWidth; 

SHORT GZZHeight; 

UBYTE ‘ExtData; 

BYTE *UserData; 
struct Layer *WLayer; 
struct TextFont *IFont; 

1 ; 

ren. 

SizeWindow(pointer naar Window, del¬ 
taX, deltaY): deze functie is het equiva¬ 
lent van de rechteronderhoek gadget. 
Hiermee kunt u immers de grootte van het 
Window instellen. Geef in deltaX en del¬ 
taY op, het aantallen pixels dat u het 
Window kleiner wilt hebben. Let op, het 
Window mag niet kleiner worden dan 0 
en niet groter worden dan wat het huidige 
scherm toelaat. 

WindowLimits(pointer naar Window, 
MinWidth, MinHeight, MaxWidth, Max¬ 
Height): met deze functie kunt u flexibel 
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Instructies bij window_demo 1 .c 


window_demo1 .c 
C 

Aztek C v3.6a 
cc window_demo1 .c +L 
In window_demo1.o -Ic32 
window_demo1 


Programma 1. Demonstratie van een simpel venster 


Programmanaam 
Programmeertaal 
Gebruikt programma 
Opties 

Aanroep 


#include "functions.h" 

#include "exec/types.h" 

#include "intuition/intuitionbase.h" 

struct IntuitionBase *IntuitionBase; 
struct Window *TestWindow; 
struct NewWindow NW = { 

10,10,200,100,0x00,0x01,NULL, 

WINDOWDRAG|WINDOWDEPTH|WINDOWSIZING, 
NULL,NULL,(UBYTE *)"C_Info testwindow", 
NULL,NULL,10,10,640,256,WBENCHSCREEN 
} ; 


main () 

{ 

register int i; 

if(!(IntuitionBase=(struct IntuitionBase *) 
OpenLibrary("intuition.library",0L))) 

Quit(5,"Intuition is niet te openen!\n"); 
if (! (TestWindow=(struct Window *) 

OpenWindow(&NW))) 

Quit(5,"Window niet te openen!\n"); 
for(i=0;i<1000000;i++); 

Quit(0,"Progranuna goed verlopen.\n"); 

} 

Quit(hoe,waarom) 
int hoe; 
char ‘waarom; 

1 

printf("%s",waarom); 

if(TestWindow!=NULL) 

CloseWindow(TestWindow); 
if(IntuitionBase!=NULL) 

CloseLibrary(IntuitionBase); 

exit(hoe); 

} 


Instructies bij window_demo2.c 


Programmanaam 
Programmeertaal 
Gebruikt programma 
Opties 

Aanroep 


window_demo2.c 

C 

Aztek C v3.6a 
cc window_demo2.c +L 
In window_demo2.o -Ic32 
window demo2 


Programma 2. Windows en hun functies 


#include "functions.h" 

#include "exec/types.h" 

#include "intuition/intuitionbase.h" 

struct IntuitionBase *IntuitionBase; 
struct Window *TestWindow; 
struct NewWindow NW — { 

10,10,300,130,0x00, 0x01, 

NULL,WINDOWDRAG|WINDOWSIZING|WINDOWDEPTH, 
NULL,NULL,(UBYTE *)"Commodore INFO", 
NULL,NULL,10,10,640,200, 

WBENCHSCREEN }; 


main () 

{ 

register int i; 

if(!(IntuitionBase=(struct IntuitionBase *) 
OpenLibrary("intuition.library",0L))) 

Quit(5,"Geen intuition.library!\n"); 

if(!(TestWindow=(struct Window *) 

OpenWindow(&NW))) 

Quit(5,"Dit window wil niet openen!\n"); 
for(i=0;iCIOOOOOO;i++); 

SetWindowTitles(Testwindow,"Even een andere 
titel") ; 

for (i=0; iCIOOOOOO; i++) 

{ 

MoveWindow(Testwindow,(SHORT)1,(SHORT)1); 

SizeWindow(Testwindow,(SHORT)-1,(SHORT)-1); 

} 

for(i=0;i<1000000;i++); 

Quit(0,"Programma goed verlopen.\n"); 

} 

Quit (hoe,waarom) 
int hoe; 
char ‘waarom; 

{ 

printf("%s",waarom); 

if(Testwindow!=NULL) 

CloseWindow(Testwindow); 
if (IntuitionBase!=NULL) 

CloseLibrary(IntuitionBase); 

exit(hoe); 

} 
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de Window grenzen voor WindowSizing 
gebruik aanpassen. Ze vult opnieuw de 
waarden van MinWidth, MinHeight, 
MaxWidth en MaxHeight in. 
WindowToBack(pointer naar Window): 
met WindowToBack() voert u dezelfde 
functie uit als wanneer u op het 
rechtergadget in de rechterbovenhoek 
van het scherm 'klikt'. Het Window ’valt’ 
hierdoor naar achteren. 
WindowToFront(pointer naar Window): 
idem als hierboven, alleen nu wordt het 
Window voor de anderen geplaatst. 

Bij het gebruik van deze functies dient u 
erom te denken dat de Windows niet bui¬ 
ten de grenzen van het scherm komen. 
Doet u dit wel, dan zal het systeem te¬ 
voorschijn komen met een ’Guru'! 

Nu we u de specifieke Window functies 
hebben laten zien, wordt het tijd voor een 
concreet voorbeeld. Typ programma 2 in. 
Compile en link het en voer het uit. Leuk 
effect dachten we zo. Bekijk nu het pro¬ 
gramma eens. Zoals u ziet wordt in dit 
programma bescheiden gebruik gemaakt 
van enkele Window functies. 

Als laatste opmerking 

We willen u nog op één punt wijzen. 
Denk erom dat u de ‘intuition.library’ pas 
sluit als u het Window al gesloten heeft. 
Wilt u het Window sluiten NADAT u ‘in¬ 
tuition.library' gesloten heeft dan zal het 
resultaat de wellicht overbekende en te 
vaak geziene ‘Guru-meditatie’ zijn. 

Voor deze keer rest ons niets meer te zeg¬ 
gen daar wij uitgesproken zijn. Wat kunt 
u in de volgende aflevering verwachtten. 
Sereens. Schermen dus. Hoe opent u ze. 
Wat voor bewerkingen voert u er mee uit, 
etcetera. Dit alles natuurlijk nog steeds op 
Intuitionniveau. Goed, dat was het, tabee, 
ciao, buenos nog wattes of gewoon tot de 
volgende keer! 

Literatuurlijst 

Berry, J.T. (1986), Inside the Amiga with 
C, Howard W.Sams & Comp., Indiana 
(USA) ISBN 0-672-22468-2 
Bleek, Jennrich & Schultz (1988), Het 
grote Amiga C boek, Bruna uitg., Utrecht 
ISBN 90-229-3483-7 
Jennrich, Trapp & Weltner (1987), Het 
supergrafiekboek voor de Amiga, Bruna 
uitg.. Utrecht ISBN 90-229-3470-5 

JOHAN & JOHAN 


Instructies bij window_demo3.c 


Programmanaam 
Programmeertaal 
Gebruikt programma 
Opties 

Aanroep 


window_demo3.c 

C 

Aztek C v3.6a 
cc window_demo3.c +L 
In window_demo3.o -Ic32 
window demo3 


Programma 3. Een voorbeeld met al bestaande Windows 


ffinclude "functions .h" 
ffinclude "exec/types .h" 
ffinclude ''intuition/intuitionbase . h" 
struct IntuitionBase *IntuitionBase; 

ScFWindows(ParWindow) 
struct Window *ParWindow; 

{ 

/* Zolang de pointer naar het volgende venster, te vinden in */ 
/* ParWindow-NextWindow, ongelijk aan 0 (NULL) is moet door */ 
/* worden gegaan met tellen. Dit wordt bereikt door met behulp*/ 
/* van recursie opnieuw, met doorgave van de pointer naar het */ 
/* volgende venster, de routine in te springen. Bij iedere lus*/ 
/* wordt de terug te geven waarde steeds met 1 verhoogt. */ 

if(ParWindow-NextWindow==NULL) 
return(0); 
else 

return(1+ScFWindows(ParWindow-NextWindow)); 

} 

main() 

{ 

SHORT NumWindows ; 

/* Open de library intuition.library */ 

if(!(IntuitionBase=(struct IntuitionBase *) 

OpenLibrary("intuition.library",0L))) 

Quit(5,"Geen intuition.library\n"); 


/* Door gebruik te maken van de verwijzing in struct */ 

/* IntuitionBase wordt het kinderspel het aantal Windows te */ 

/* tellen. Maak gebruik van IntuitionBase-ActiveScreen. */ 

/* In de structure Screen wordt een verwijzing gegeven naar */ 

/* het eerste venster. De volledige verwijzing luidt dan: */ 

/* IntuitionBase-ActiveScreen-FirstWindow */ 

NumWindows=ScFWindows(IntuitionBase-ActiveScreen-FirstWindow); 

printf("Aantal Windows = %2d\n",NumWindows+1); 

/* En verlaat vervolgens met behulp van de functie Quit() */ 

/* het programma weer. */ 


Quit(0,"Programma succesvol verlopen\n"); 

1 

Quit(hoe,waarom) 
int hoe; 
char ‘waarom; 

{ 

/* Een standaard foutafhandelings procedure. Ook bij het */ 

/* verlaten van het programma wordt de routine aangeroepen. In*/ 
/* programma's van deze grootte geen absolute noodzaak echter */ 
/* het maakt het programma veel beter leesbaar. Bij grote */ 

/* programma's en veel declaraties is het een absolute 'must' */ 
/* aangezien men anders 'verzuipt' in het programma en ontoe- */ 
/* laatbaar veel geheugen gebruikt wordt. */ 

print f("% s", waarom) ; 

if(IntuitionBase!=NULL) 

CloseLibrary(IntuitionBase); 
exit(hoe); 

1 
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Het overtikken van een listing kan een heel kar¬ 
wei zijn en als u een beetje normaal mens bent 
dan maakt u daarin beslist een aantal fouten. Nu 
is niets moeilijker om de fouten uit je eigen werk 
te halen. Al geruime tijd heeft Jan Bodzinga hier¬ 
voor een zgn. Checksum-programma geschre¬ 
ven. Om de vele nieuwe lezers van Commodore- 
info te helpen volgt hieronder nog een keer een 
volledige uitleg over de werking van dit program¬ 
ma, waarmee het, hoe vreemd dat misschien ook 
lijkt, echt mogelijk is om met behulp van dit pro¬ 
gramma de fouten in elke door ons geplaatste lis¬ 
ting op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt 
hem voordat u het programma RUNt op een dis¬ 
kette of cassette. 

2. U tikt het RUN commando in. Mocht het pro¬ 
gramma de boodschap 'FOUT in dataregels!’ ge¬ 
ven dan heeft u een fout bij het overtikken ge¬ 
maakt. Herstel dan de fout en SAVE de verbeter¬ 
de versie. Mocht het programma met de bood¬ 
schap 'data is weggezet checksum testen met 
sys...'komen dan is tot dusver alles goed. Het 
programma is nu in een stukje machine- 
taalgeheugen gezet. Als u het NEW commando 
geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Ba¬ 
sic geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de 
gehele listing opnieuw te gaan intikken. Als u nu 
een programma op fouten wilt gaan controleren 
dan kunt u dat in het geheugen laden(wel eerst 
het checksum programma hebben gerund). Ver¬ 
volgens typt u zonder het programma te runnen 
de opdracht sys 49152(c-64) of sys 1536 (c-16 
en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regel¬ 
nummers over het scherm met getallen erachter. 
Dezelfde lijst staat ook achter elk door ons ge¬ 
plaatste programma. Wijkt nu een nummer achter 
een regelnummer af van het nummer dat in het 
blad staat dan heeft u in die regel iets anders 
ingetikt dan er in het blad stond. U kunt de 
stroom getallen d.m.v. de RUN/STOP toets pau¬ 
zeren en weer vervolgen met de F1 of F7 toets. 
Het is uitermate belangrijk dat u goed met dit pro¬ 
gramma overweg kunt en mocht u het niet goed 
werkend krijgen bel dan gerust even met onze 
listingservice telefoonlijn. (Maandag 17.00 - 21.00 
uur. Telefoonnummer 02155-25162.) 

De laatste tijd wordt er weer veel gebeld zodat U 
nogwel eens in gesprek krijgt, daarom houdt uw 
vraag kort, vermeld in welk blad het desbetreffen¬ 
de artikel stond. Heeft U veel vragen, of zis uw 
vraag erg uitgebreid, doe het dan schriftelijk, zo¬ 
dat we veel mensen op de maandag avond te 
woord kunnen staan. 


1 rem ****************************** 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new" 

4 rem blijft dit programma in het ge- 

5 rem heugen. laad het te testen pro- 

6 rem gramma en tik daarna sys 49152. 

7 rem ******************************* 

10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelezen 
30 pokei,a:i=i+l:b=b+a:goto20 
40 if b<>16844thenprint"[SHIFT-CLR]fo 
ut[SPACE]in[SPACE]dataregels!":b=0 
: end 

50 poke49184,148:poke49185,192 

55 i=49300 

60 read a: ifa<0then80 
70 pokei,a:b=a+b:i=i+l:goto60 
80 if b<>20068thenprint"[SHIFT-CLR]fo 
ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 print"data[SPACE]is[SPACE]weggezet" 

95 print"checksum[SPACE]testen[SPACE] 
met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73,192 
120 data32,73,192,208,1,96,32,225,255,208 
130 data 3,76,116,164,32,81,192,32,73,192 
140 data 240,12,201,32,240,247,24,101, 
167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 
77,163 

180 data96,162,0,189, 123, 192,240, 6,32,210 
190 data 255,232,208,245,32,73,192,170 
,32,73 

200 data 192,132,168,32,205,189,162,3, 
169,32 

210 data 32,210,255,202,208,250,169,0, 
133,167 

220 data 164,168,96,82,69,71,69,76,32,0 
230 data -1 

240 data 165,197,201,3,240,7,201,4,240 
250 data 6,76,148,192,76,34,192,169 
260 data 147,32,210,255,76,161,192 
270 data -1 


** EINDE LISTING checksum 64 ** 


REGEL 

i 

249 

REGEL 

100 

183 

REGEL 

2 

84 

REGEL 

110 

158 

REGEL 

3 

105 

REGEL 

120 

232 

REGEL 

4 

2 

REGEL 

130 

183 

REGEL 

5 

246 

REGEL 

140 

96 

REGEL 

6 

152 

REGEL 

150 

96 

REGEL 

7 

249 

REGEL 

160 

127 

REGEL 

10 

157 

REGEL 

170 

71 

REGEL 

20 

64 

REGEL 

180 

223 

REGEL 

30 

38 

REGEL 

190 

73 

REGEL 

40 

57 

REGEL 

200 

79 

REGEL 

50 

14 

REGEL 

210 

109 

REGEL 

55 

251 

REGEL 

220 

106 

REGEL 

60 

192 

REGEL 

230 

225 

REGEL 

70 

42 

REGEL 

240 

16 

REGEL 

80 

244 

REGEL 

250 

163 

REGEL 

90 

245 

REGEL 

260 

92 

REGEL 

95 

237 

REGEL 

270 

22 
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Print out C-64 met o.a. Spreadsheet 


O 



Lettertekenaar 64 


LET OP, dit programma werkt niet met een 
cardridge !! Ronald Deen, de maker van dit pro¬ 
gramma schrijft dat hij deze utilitie heeft ontwik¬ 
keld omdat hij bij het schrijven van programma’s 
vaak karakters moest veranderen. Het program¬ 
ma is zo geschreven dat het alleen met een disk¬ 
drive werkt. 

0 poke53280,0:poke53281,0:input"[SHI 

FT CLR]instructies";a$:ifa$="j"ora 
$="ja"thenl26 

1 poke53280,0:poke53281,0:a=0:b=0:c= 

0:d=0:e=0:f=0:g=0:h=0:print"[SHIFT 

CLR]":goto77 

2 poke52,56:poke56,56:clr 

3 poke56334,peek(56334)and254 

4 pokel,peek(1)and251 

5 fori=375to511:pokei+14336,peek(i+5 
3248):nexti 

6 pokel,peek(1)or4 

7 clr:poke56334,peek(56334)orl 

8 gosub33:poke808,234 

9 print"[SHIFT-CLR]":da=0:poke53272, 

31:poke808,234 

10 print"[SHIFT-CLR]":forq=dato255:po 
ke53280,1:poke53281, 1 

11 print"[CTRL-1][HOME][7xCRSR-UP]+++ 
+++++1 [6xSPACE] [CTRL-9] YZ [SHIFT—1-] 
[COM—] [SHIFT—] [COM-PI] [COM-*] [SH 
IFT SPACE][CTRL-0][17xSPACE]"; 

12 print"++++++++2[31xSPACE]"; 

13 print"++++++++3[SPACE][CTRL-9]HIJK 
LM[CRSR-RIGHT]N[CRSR-RIGHT]ORSTUVW 
[CRSR-RIGHT]X[CTRL-0][12xSPACE]"; 

14 print"++++++++4[lOxSPACE][CTRL-9]P 
QQQQQQQQ[CTRL-0][12xSPACE]"; 

15 print"++++++++5[31xSPACE]"; 

16 print"++++++++6[31xSPACE]"; 

17 print"++++++++7[31xSPACE]"; 

18 print"++++++++8[31xSPACE] 

19 print"12345678[32xSPACE]" 

20 gosubl05 

21 goto89 

22 pokel4336+8*q+0,a(0):poke56096+q,2 

23 pokel4336+8*q+l,a(1):gosub81 

24 pokel4336+8*q+2,a(2) 

25 pokel4336+8*q+3,a(3) 

26 pokel4336+8*q+4,a(4) 

27 pokel4336+8*q+5,a(5) 

28 pokel4336+8*q+6,a(6) 

29 pokel4336+8*q+7,a(7):pokel824+q,q 

30 print"[HOME][10xCRSR-DOWN][CTRL-1] 

":goto79 

31 printq"_”;a(0);",”;a(l);",";a(2);" 

,";a(3)”;a(4)”;a(5);",";a(6) 

.11 n . 

r r r 

32 printa(7);:nextq 

33 readcn:ifcnCOthenreturn 

34 fori=0to7:readcd 

35 pokel4336+8*cn+i,cd:nexti 

36 goto33 

37 data200,31,48,103,104,104,103, 48,3 
1 

38 data201,224,48,152,24,24,152,48,22 
4 


39 data202,3,7,15,3,3,3,3,31 

40 data203, 63, 99, 195, 195, 99, 63, 3, 255 

41 data204,60,102,195,102,60,102,195, 
126 

42 data205,255,195,134,12,126, 48, 96,1 
92 

43 data206,0,0,0,128, 148,204, 164,196 

44 data207,102,195,195,102,102,60,24, 
24 

45 data208,24,24,15,7,0,0,0,0 

46 data209,0,0,255,255,0,0,0,0 

47 data210,51,99,99,99,51,51,31,14 

48 data211,60,24,25,49,51,99,97,240 

49 data212,120,204,6,6,6,12,140,248 

50 data213,62,51, 99,102, 124,192,192,1 
92 

51 data214,60,22,24,4 9, 4 9, 97, 99, 243 

52 data215,120,236,198,158,182,102,19 
8, 6 

53 data216,3,15,30,30,60,48,128,192 

54 data217,0,0,0,142,136,140,136, 238 

55 data218, 0, 0, 0,238, 68, 68, 68, 68 

56 data219,0,0,0,236,138,204, 138,234 

57 data220,0, 0,0, 14,4,100,4, 4 

58 data221,0,0,0,234,138, 204,138,234 

59 data222,0,0,0,234,142,206,142,234 

60 data223,0,0,0, 68,170,238,170,170 

61 data224,0,0,0, 198,166,198,160,166 

62 data44,0,0,0,0,0,3,3,6 

63 data32,0,0, 0, 0,0,0,0,0 

64 pokel4336+8*43 ,255 

65 pokel4336+8*43 +1,129 

66 pokel4336+8*43 +2,129 

67 data31,17,49,255,255,49,17,0,0 

68 data-1 

69 pokel4336+8*43 ,255 

70 pokel4336+8*43 +1,129 

71 pokel4336+8*43 +2,129 

72 pokel4336+8*43 +3,129 

73 pokel4336+8*43 +4,129 

74 pokel4336+8*43 +5,129 

75 pokel4336+8*43 +6,129 

76 pokel4336+8*43 +7,255:return 

77 gosub64:print”[CTRL-2][SHIFT-CLR][ 
1lxCRSR-DOWN][9xCRSR-RIGHT]made[SP 
ACE]by[SPACE]yuiopia[SPACE]" 

78 print"[HOME]goto2 

79 print"[40xSPACE]:gosub64 

80 print"[2xCRSR-UP]":goto31 

81 pokel4336+8*43 ,0 

82 pokel4336+8*43 +1,0 

83 pokel4336+8*43 +2,0 

84 pokel4336+8*43 +3,0 

85 pokel4336+8*43 +4,0 

86 pokel4336+8*43 +5,0 

87 pokel4336+8*43 +6,0 

88 pokel4336+8*43 +7,0:fori=0to500:ne 
xti:return 

89 forkl=0to8:forpy=1024+(kl*40)tol03 
1+(kl*40) 

90 if peek(py)=32thenyp=py-(1023+(kl* 
40)):goto92 

91 goto93 

92 onypgoto94,95,96,97,98,99,100,101 

93 nextpy:a(kl)=qu:qu=0:nextkl:goto22 

94 qu=128:goto93 

95 qu=qu+64:goto93 

96 qu=qu+32:goto93 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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97 qu=qu+16:goto93 

98 qu=qu+8:goto93 

99 qu=qu+4:goto93 

100 qu=qu+2:goto93 

101 qu=qu+l:goto93 

102 poke53272,21:input"[SHIFT-CLR]naam 
";ji$:ji$=ji$+",seq,write":gh=q*8 

103 open2,8,2,ji$:forzz=14336tol4336+g 
h:print#2,peek(zz):nextzz:poke5327 
2,31 

104 close2:da=gh/8:gotolO 

105 v=53248:pokev+21,4:poke2042,13:pok 
ev+41,14 

106 poke832,60:poke835,60:poke838,255: 
poke841,255:poke844,255:poke847,60 

107 poke850,60 

108 xx=24:yy=50 

109 jk=peek(56320) 

110 ifjk=119thenxx=xx+8:ifxx>88thenxx= 
88 

111 ifjk=123thenxx=xx-8:ifxx<24thenxx= 
24 

112 ifjk=126thenyy=yy-8:ifyy<50thenyy= 
50 

113 ifjk=l25thenyy=yy+8:ifyy>114thenyy 
=114 

114 ifjk=lllthenpokel024+((xx-24)/8)+( 
((yy-50)/8)*40),32 

115 ifjk=109thenpokel024+((xx-24)/8)+( 
((yy-50)/8)*40),43 

116 geta$:ifa$=chr$(13)thenreturn 

117 ifa$="s"thenprint"[SHIFT-CLR]":run 
7 

118 ifa$="w"thenl02 

119 ifa$="r"thengotol22 

120 ifa$="p"thengotol25 

121 pokev+4,xx:pokev+5,yy:gotol09 

122 poke53272,21:input"[SHIFT-CLR]welk 
[SPACE]bestand?";b$:b$=b$+",seq,re 
ad" 

123 open3,8,8,b$:fori=0to2046:input#3, 
g:pokel4336+i,g:if st=0thennexti 

124 close3:poke53272,31:da=i/8-l:gotol 
0 

125 input"[CTRL-1]";ol$:gotol21 

126 print"[SHIFT-CLR][CTRL-2]letter-te 
kenaar[SPACE]is[SPACE]een[SPACE]pr 
ogramma[SPACE]waarmee j e[SPACE]j e[S 
PACE]eigen[SPACE]karakter[SPACE]se 
t[SPACE]kan 

127 print"maken[SPACE]door-middel[SPAC 
E]van[SPACE]de[SPACE]joystick[SPAC 
E]in[SPACE]port2[SPACE]te[SPACE]do 
en[SPACE]en[SPACE]op[SPACE]de[SPAC 
E]knop[SPACE]"; 

128 print"te[SPACE]drukken[SPACE]haal[ 
SPACE]j e[SPACE]een[4xSPACE]vlakje[ 
SPACE]weg.als[SPACE]je[SPACE]knop[ 
SPACE]en[SPACE]naar[SPACE]achteren 
[SPACE]"; 

129 print"tegelijk[SPACE]doet[SPACE]ko 
mt[SPACE]er[SPACE]weer[SPACE]een[S 
PACE]vlakje[3xSPACE]bij,zodat[SPAC 
E]je[SPACE]fouten[SPACE]"; 

130 print"verbeteren[SPACE]kan[SPACE]! 
[4xSPACE]als[SPACE]je[SPACE]<retur 
n>[SPACE]drukt[SPACE]worden[SPACE] 
alle[SPACE]lege 


131 prinf'vlakjes[SPACE]1[SPACE]stip[S 
PACE]en[SPACE]die[SPACE]stippen[SP 
ACE]te samen[3xSPACE]vormen[SPACE]h 
et[SPACE]tekentje[SPACE]dat[SPACE] 
u" ; 

132 print"[SPACE]had[SPACE]gemaakt[SPA 
CE]8[SPACE]maal[SPACE]zo[SPACE]kle 
in. [SPACE]het[SPACE]cij fer[SPACE]v 
oor[SPACE]de[SPACE]pijl[2xSPACE]is 
[SPACE]de[SPACE]poke-"; 

133 print"waarde[SPACE]van[SPACE]het[S 
PACE]teken.[SPACE]als[SPACE]u[2xSP 
ACE]<p>[SPACE]indrukt[SPACE]kunt[S 
PACE]u[SPACE]bijvoorbeeld[SPACE]de 
[SPACE]"; 

134 print"a[SPACE]of[SPACE]de[SPACE]b[ 
SPACE]indrukken[SPACE]om[SPACE]te[ 
SPACE]kijken[SPACE]wat[SPACE]voor[ 
4xSPACE]teken[SPACE]u[SPACE]daarva 
n[SPACE]heeft"; 

135 print"[SPACE]gemaakt.je[SPACE]kan[ 
SPACE]ookalle[SPACE]waarden[SPACE] 
naar[SPACE]disk[SPACE]saven[SPACE] 
en[SPACE]laden,[2xSPACE]zodat"; 

136 print"[SPACE]niet[SPACE]alle[SPACE 
]waarden[SPACE]verloren[SPACE]gaan 
[3xSPACE]als[SPACE]je[SPACE]de[SPA 
CE]computer[SPACE]uitzet”; 

137 print"[2xCRSR-DOWN][7xCRSR-RIGHT]< 
return>" 

138 geta$:ifa$=""thenl38 

139 print"[SHIFT-CLR]" 

140 print"druk[SPACE]<return>[SPACE]al 
s[SPACE]je[SPACE]klaar[SPACE]bent[ 
SPACE]met[SPACE]de[16xSPACE]letter 

II 

141 print" [5xCRSR-RIGHT] <s>.als[S 

PACE]je[SPACE]overnieuw[SPACE]wilt 
[19xSPACE]beginnen" 

142 print" [5xCRSR-RIGHT] <p>.als [S 

PACE]je[SPACE]de[SPACE]tekens[SPAC 
E]wil[20xSPACE]uitproberen" 

143 print" [5xCRSR-RIGHT] <w>.als[S 

PACE]j e[SPACE]alle[SPACE]waarden[S 
PACE]wil[17xSPACE]wegschrijven" 

144 print" [5xCRSR-RIGHT] <r>.als[S 

PACE]j e[SPACE]waarden[SPACE]wilt[2 
lxSPACE]inlezen" 

145 print"[5xCRSR-RIGHT][2xCRSR-DOWN]d 
oe[SPACE]de[SPACE]joystick[SPACE]i 
n[SPACE]port2[SPACE]!!" 

146 print"[5xCRSR-DOWN][7xCRSR-RIGHT]< 
return?" 

147 geta$:ifa$=""thenl47 

148 goto 1 

EINDE LISTING letter-tekenaar 
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Checksum letterteken 64 


regel 

0 

248 

regel 

86 

200 

regel 

1 

4 

regel 

87 

201 

regel 

2 

62 

regel 

88 

182 

regel 

3 

42 

regel 

89 

96 

regel 

4 

127 

regel 

90 

155 

regel 

5 

88 

regel 

91 

245 

regel 

6 

28 

regel 

92 

183 

regel 

7 

151 

regel 

93 

34 

regel 

8 

41 

regel 

94 

34 

regel 

9 

171 

regel 

95 

65 

regel 

10 

84 

regel 

96 

60 

regel 

11 

164 

regel 

97 

62 

regel 

12 

162 

regel 

98 

15 

regel 

13 

205 

regel 

99 

11 

regel 

14 

160 

regel 

100 

9 

regel 

15 

165 

regel 

101 

8 

regel 

16 

166 

regel 

102 

146 

regel 

17 

167 

regel 

103 

65 

regel 

18 

168 

regel 

104 

219 

regel 

19 

129 

regel 

105 

146 

regel 

20 

35 

regel 

106 

122 

regel 

21 

250 

regel 

107 

198 

regel 

22 

115 

regel 

108 

203 

regel 

23 

113 

regel 

109 

90 

regel 

24 

67 

regel 

110 

23 

regel 

25 

69 

regel 

111 

1 

regel 

26 

71 

regel 

112 

10 

regel 

27 

73 

regel 

113 

104 

regel 

28 

75 

regel 

114 

65 

regel 

29 

101 

regel 

115 

74 

regel 

30 

93 

regel 

116 

147 

regel 

31 

117 

regel 

117 

75 

regel 

32 

170 

regel 

118 

119 

regel 

33 

134 

regel 

119 

253 

regel 

34 

207 

regel 

120 

254 

regel 

35 

98 

regel 

121 

232 

regel 

36 

239 

regel 

122 

214 

regel 

37 

103 

regel 

123 

222 

regel 

38 

122 

regel 

124 

214 

regel 

39 

119 

regel 

125 

170 

regel 

40 

59 

regel 

126 

88 

regel 

41 

213 

regel 

127 

50 

regel 

42 

192 

regel 

128 

182 

regel 

43 

20 

regel 

129 

16 

regel 

44 

165 

regel 

130 

5 

regel 

45 

166 

regel 

131 

110 

regel 

46 

214 

regel 

132 

143 

regel 

47 

199 

regel 

133 

238 

regel 

48 

245 

regel 

134 

188 

regel 

49 

217 

regel 

135 

33 

regel 

50 

183 

regel 

136 

56 

regel 

51 

255 

regel 

137 

36 

regel 

52 

239 

regel 

138 

105 

regel 

53 

228 

regel 

139 

112 

regel 

54 

10 

regel 

140 

175 

regel 

55 

99 

regel 

141 

8 

regel 

56 

17 

regel 

142 

73 

regel 

57 

153 

regel 

143 

93 

regel 

58 

8 

regel 

144 

20 

regel 

59 

1 

regel 

145 

177 

regel 

60 

221 

regel 

146 

87 

regel 

61 

32 

regel 

147 

105 

regel 

62 

215 

regel 

148 

184 

regel 

63 

200 




regel 

64 

85 




regel 

65 

48 




regel 

66 

49 




regel 

67 

137 




regel 

68 

225 




regel 

69 

85 




regel 

70 

48 




regel 

71 

49 




regel 

72 

50 




regel 

73 

51 




regel 

74 

52 




regel 

75 

53 




regel 

76 

254 




regel 

77 

56 




regel 

78 

229 




regel 

79 

73 




regel 

80 

38 




regel 

81 

233 




regel 

82 

196 




regel 

83 

197 




regel 

84 

198 




regel 

85 

199 





Aanvallen 64 


Aanvallen is op zich een eenvoudig spel. Het is 
de bedoeling dat U door middel van het op het 
juiste moment indrukken van de spatiebalk de ’vi- 
ques’ door de dijk laat gaan. Maar er zijn slechts 
25 kansen om dit te doen. Na het runnen van dit 
spel drukt U op de spatiebalk om het spel te star¬ 
ten. Dit kan zowel met als zonder instructies. Het 
spel is gemaakt door Lennart van Walsum uit 
Hove. (dit ligt in Belgie) 


i 

rem 


2 

rem 

k k 

aanvallen 

** 

3 

rem 

k k 



4 

rem 

k k 

door 

** 

5 

rem 

k k 


** 

6 

rem 

k k 

lennart vw 

kk 

7 

rem 

k k 

en hugo c. 

kk 

8 

rem 

k k 


k k 

9 

rem 

kkkk 



10 poke53280,0:poke53281,0:poke53272, 

22 

20 print"[SHIFT-CLR][COM-1][CTRL-9]AA 
NVALLEN":gosub390 

30 print"[2xCRSR-DOWN][COM-3]bij[SPAC 
E]dit[SPACE]spellet je[SPACE]is[SPA 
CE]er[SPACE]de[SPACE]bedoeling[SPA 
CE]dat” 

40 print"[COM-7]U,[SPACE]doormiddel[S 
PACE]van[SPACE]een[SPACE]druk[SPAC 
E]op[SPACE]de[SPACE]space-" 

50 print"[CRSR-DOWN][COM-2]balk,[SPAC 
E]de[SPACE]'VIQUES' [SPACE]door[SPA 
CE]de[SPACE]dijk[SPACE]laat[SPACE] 
gaan" 

60 print"[CTRL-8][CTRL-6]maar[SPACE]p 
as[SPACE]op,[SPACE]U[SPACE]hebt[SP 
ACE]slechts[SPACE]25[SPACE]kansen[ 
SPACE]om" 

70 print"[COM-4]uw[SPACE]inzicht[SPAC 
E]en[SPACE]aanval[SPACE]te[SPACE]b 
eproeven[SPACE] !!!!!" 

80 print"[CRSR-DOWN][CTRL-3]wilt[SPAC 
E]U[SPACE]spelen[SPACE][CTRL-9]m[C 
TRL 0]et[SPACE]of[SPACE][CTRL-9]z[ 
CTRL-0]onder[SPACE]instrukties[COM 
2]":g=25 

90 pokel98,0:waitl98,1:gett$ 

100 ift$="m"thenprint"[HOME]":gotol30 
110 ift$="z"thenprint"[SHIFT-CLR]":got 
ol30 

120 ift$<>""then90 

130 fort=2023-159to2023:poket,104:next 

t 

140 fort=1064+rnd(0)*40tol503:poket,12 
2 

150 geta$:ifa$<>""thengoto200 
160 poket,32:nextt 

170 fort=1503tol064step-l:poket, 122 
180 geta$:ifa$<>""then200 
190 poket,32:nextt:gotol40 
200 g=g-l 

210 print"[HOME][COM-7]Je[SPACE]mag[SP 
ACE]nog[SPACE]"g"[CRSR-LEFT][2xSPA 
CE]zetten[SPACE]doen..[COM-3]" 

220 ifg=lthenprint"[HOME][COM-7]Je[SPA 
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230 

240 

250 

260 

270 

280 

290 


300 

310 


CE]mag[SPACE]nog[SPACE]"g 1 " [SPACE]z 
et[SPACE]doen...[COM-3]":goto250 
ifg<>-lthen250 
ifg=-lthen310 

ifpeek(t+40)=104thenpoket,32:poket 
+40,32:gotol40 

ifpeek(t+40)=104thenpoket, 32:poket 
+40,32:gotol40 

poket, 32 : t=t+40,: ift<2024thenpoket, 
122:goto250 
poke53272,21 

print"[SHIFT-CLR][CTRL-9]mooi[SPAC 
E]z o, [SPACE]goed[SPACE]gedaan[SPAC 
E]![SPACE]wil[SPACE]je[SPACE]nog[S 
PACE]eens[SPACE]? [CTRL-0] [CRSR-DOW 
N][17xSPACE][CTRL-9](j/n)" 
goto350 

poke53272,21:print"[SHIFT-CLR][5xS 
PACE][CTRL-9]zwak,[SPACE]zwak,[SPA 


Bowlen 64 


Bowlen is een databestand wat speciaal is toege¬ 
spitst om alle gegevens van een bowling compe¬ 
titie bij te houden. Zelfs een gemmiddelde en de 
hcp kan worden berekent. De maker van dit pro¬ 
gramma is de Heer Lageman uit Amsterdam. Het 
programma is volledig menugestuurd, dus een ie¬ 
der moet er mee kunnen werken. 

1 rem bowlen door s . g. lageman. 

2 rem 

3 rem amsterdam. 

4 rem 

5 rem hcp berekend over de laatste 21 
games, indien hcp over alle games 

6 rem dan de regels 101 t/m 106 laten 
vervallen. 



CE]zwak,[SPACE]zwak[SPACE] !!!!!!![ 

7 

rem verdeling gegevens speler x. 

1 

1 


CTRL-0] ": 


y, z x = speler y = week 

1 

320 

gosub390 

8 

rem s (10,52,8) lOspelers 52 weken 

O 

330 

print"[2xCRSR-DOWN]nog[SPACE]een[S 

9 

rem s(x,0,0) computer nummer speler 


PACE]speee":gosub410:print"[CRSR-U 

10 

rem s(x,0,l) aantal keren input 

1 


P][llxCRSR-RIGHT]1[SPACE]":gosub41 

11 

rem s(x,0,2) hoogste serie 

1 


0 

12 

rem s(x,0,3) hoogste game 

o 

340 

print"[CRSR-UP][12xCRSR-RIGHT]letj 

13 

rem z0=datum zl=game 1 


e[SPACE]??":gosub410 

14 

rem z2=game 2 z3=game 3 

1 ' 

350 

pokel98,0:waitl98, 1 : geta$ 

15 

rem z4=game 4 z5=totaal 

1 

360 

ifa$="j"thenrun 

16 

rem z6=sub. totaal z7=gemiddelde 

1 

370 

ifa$="n"thenend 

17 

rem z8=handicap 

! o 

l 

380 

ifa$<>""then350 

18 

rem 

390 

fort=ltol000 : nextt : pokel98,0 : waitl 

19 

rem set up 

i 


98, 1 

20 

rem 

i 

400 

return 

21 

dims(10,52,8),n$(11):n$(0)="[CTRL- 

! o 

410 

fort=lto500 : nextt 


9] [ SPACE]menu[2xSPACE] [CTRL-0] " :v= 

420 

return 


53280:pokev,6:pokev+l,6 

1 

430 

end 

22 

h$="":k$=",":fl$="[CTRL-9][COM-l] [ 
SPACE]fl[SPACE] [CTRL-0] [CTRL-2]":n 

o 

EINDE LISTING aanvallen 64 

23 

$ (11)="alle[SPACE]spelers" 

£2$="[CTRL-9][COM-l][SPACE]f2[SPAC 



i 


Checksum aanvallen 64 


regel 

1 

131 

regel 210 

108 


regel 

2 

201 

regel 220 

204 


regel 

3 

204 

regel 230 

80 


regel 

4 

107 

regel 240 

155 


regel 

5 

55 

regel 250 

134 

24 

regel 

6 

248 

regel 260 

134 

regel 

7 

110 

regel 270 

95 


regel 

8 

55 

regel 280 

41 


regel 

9 

131 

regel 290 

1 


regel 

10 

137 

regel 300 

33 


regel 

20 

120 

regel 310 

16 

25 

regel 

30 

17 

regel 320 

41 

regel 

40 

15 

regel 330 

24 

26 

regel 

50 

149 

regel 340 

24 

regel 

60 

58 

regel 350 

160 

27 

regel 

70 

99 

regel 360 

97 

28 

regel 

80 

15 

regel 370 

91 

29 

regel 

90 

179 

regel 380 

215 

30 

regel 

100 

52 

regel 390 

199 


regel 

110 

193 

regel 400 

142 

31 

regel 

120 

187 

regel 410 

1 

regel 

130 

249 

regel 420 

142 


regel 

140 

155 

regel 430 

128 

32 

regel 

150 

154 



regel 

160 

140 




regel 

170 

42 



33 

regel 

180 

17 




regel 

190 

228 



34 

regel 

200 

28 




COM-l][SPACE]f3[SPACE] [CTRL-0] [CTR 
L 2]":f4$="[CTRL-9][COM-l][SPACE]f 
4[SPACE] [CTRL-0] [CTRL-2]":f5$="[CT 
RL 9][COM-l][SPACE]f5[SPACE][CTRL- 
0] [CTRL-2] " 

f6$="[CTRL-9][COM-l][SPACE]f6[SPAC 
E] [CTRL-0] [CTRL-2]":f7$="[CTRL-9][ 
COM-l][SPACE]f7[SPACE] [CTRL-0] [CTR 
L 2]":f8$="[CTRL-9][COM-l][SPACE]f 
8[SPACE] [CTRL-0] [CTRL-2]" 

p$="[COM-l]- 

-[CTRL-2]" 

rem 

rem hoofd menu 
rem 

print"[SHIFT-CLR][HOME]" 
printtab(6)"[COM-l]UDDDDDDDDDDDDDD 
DDDDDDDDDDDDDI" 

printtab(6)"G[CTRL-2][SPACE]**[SPA 
CE]bowlen[SPACE]bestand[SPACE]disk 
[SPACE]**[COM-l][SPACE]H" 
printtab(6)"JFFFFFFFFFFFFFFFFFFFFF 
FFFFFFK" 

printtab(14)"[CTRL-9][SPACE]menu[S 
PACE] [CTRL-0] [2xCRSR-DOWN]" 
printtab(7)fl$"[SPACE]team[SPACE]/ 


CJ 


O 


O 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 
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[SPACE]score[SPACE]invoer[CRSR-DOW 
N] " 

35 printtab(7)f2$"[SPACE]oude[SPACE]g 
egevens[SPACE]ophalen[CRSR-DOWN]" 

36 printtab(7)f3$"[SPACE]hcp[SPACE]en 
[SPACE]score[SPACE]overzicht[CRSR- 
DOWN] " 

37 printtab(7)f4$"[SPACE]score[SPACE] 
overzicht[SPACE]printen[CRSR-DOWN]" 

38 printtab(7)f5$"[SPACE]gegevens[SPA 
CE[wijzigen[CRSR-DOWN]" 

39 printtab(7)f6$"[SPACE]gegevens[SPA 
CE]opslaan[SPACE]([SPACE]saven[SPA 
CE])[CRSR-DOWN]" 

40 printtab(7)f7$"[SPACE]stoppen[CRSR 
-DOWN]":printtab(7)"==============" 

41 printtab(8)"maak[SPACE]u[SPACE]keu 
ze":printtab(7)"==============" 

42 fork=0tol6 

43 forv=56184to56195:pokev,k:next 

44 geti$:ifi$="[SPACE]"ori$=""then47 

45 ifasc(i$)<133orasc(i$)>139then47 

46 onasc(i$)-132goto51,124,194,252,16 
8,313,228 

47 next:goto42 

48 rem 

49 rem gegevens team 

50 rem 

51 ifs(1, 0,0)<>0then77 

52 print"[SHIFT-CLR]”p$:printtab (10)" 
bowling[SPACE]team[SPACE]gegevens" 
:printp$"[CRSR-DOWN]" 

53 input"naam[SPACE]team[lOxSPACE]:[C 
TRL 9]";bt$ 

54 input"league[13xSPACE]:[CTRL-9]";1$ 

55 input"handicap[SPACE](ja/nee)[2xSP 
ACE]:[CTRL-9]";hc$ 

56 inpuf'aantal[SPACE]games[SPACE](3/ 
4)[SPACE]:[CTRL-9]";ag 

57 inpuf'seizoen[SPACE](j/j)[6xSPACE] 

:[CTRL-9]jj$ 

58 input"[CRSR-DOWN]aantal[SPACE]spel 
ers[SPACE]team[SPACE](max[SPACE]10 
)";sp:print"[CRSR-DOWN]":gosub261 

59 ifi$="j"then62 

60 ifi$="n"thenprint"[HOME][3xCRSR-DO 
WN][CRSR-RIGHT]" 

61 goto53 

62 print"[SHIFT-CLR]"p$:printtab(15)" 
naam[SPACE]spelers":printp$"[CRSR- 
DOWN] " 

63 fork=ltosp 

64 input"naam[SPACE]speler[2xSPACE]:[ 
CTRL-9]";n$(k) 

65 next:print"[CRSR-DOWN]":gosub261 

66 ifi$="j"then69 

67 ifi$="n"thenprint"[HOME][3xCRSR-DO 
WN][CRSR-RIGHT]" 

68 goto63 

69 print"[SHIFT-CLR]"p$:printtab(8)"n 
aam[SPACE]-->[SPACE]computer[SPACE 
]nummer":printp$"[CRSR-DOWN]" 

70 fork=ltosp 

71 printn$(k);:printtab(14);:input"[S 
PACE]:[CTRL-9]";cn:s(k,0,0)=cn 

72 next:print"[CRSR-DOWN]":gosub261 

73 ifi$="j"then29 

74 ifi$="n"thenprint"[HOME][3xCRSR-DO 


WN][CRSR-RIGHT]" 

75 goto70 

76 rem 

77 rem score invoer 
7 8 rem 

79 print"[SHIFT-CLR]"p$ 

80 print"score[SPACE]invoer[SPACE]voo 

r[SPACE]speler":printp$"[CRSR-DOWN]" 

81 gosub267:gosub261:ifi$="n"then79 

82 ifx=0then29 

83 ifx=llthenprint"[CRSR-DOWN]alleen[ 
SPACE]bij[SPACE]overzicht[SPACE]dr 
uk[SPACE]return":gosub393:goto79 

84 gl=0 :print"[SHIFT-CLR]score[SPACE] 
invoer[SPACE]speler:[SPACE]"n$(x)" 
[CRSR-DOWN]" 

85 y=s(x,0,1) :y=y+l:t=0:ts=0 

86 input"datum[SPACE]:[CTRL-9]d:pri 
nt" [CTRL-0 ]" 

87 s(x, y,0)=d 

88 forz=ltoag 

89 printz"[SPACE]game[SPACE]:[CTRL-9] 

";:inputg 

90 s (x,y,z)=g:t=t+g 

91 ifg>glthengl=g 

92 print" [CTRL-0] ":nextz 

93 print"[CRSR-UP] [CTRL-0] "tab(20)"to 
taal[SPACE]:"t:print"[3xCRSR-DOWN] 

":gosub261 

94 ifi$="j"then96 

95 ifi$="n"then84 

96 s (x, y, 5) =t 

97 ts=s(x,y-1,6):ts=ts+t:s(x,y,6)=ts 

98 dl=y*ag:rem deling aantal games 

99 s(x, y,7)=int(ts/dl) 

100 rem hcp berekening 

101 ify<=7thenl07 

102 hct=0 

103 hct=s (x, y, 6)-s (x, y-7, 6) 

104 sub=int(hct/21) 

105 h=int((180-sub)*0.75) 

106 gotol08 

107 h=int((180-s(x,y,7))*0.75) 

108 ifh>45thenh=45:rem hcp max 45 

109 ifh<0thenh=0 :rem hcp 0- 45 

110 ifhc$="n"thenh=0 

111 s (x, y, 8) =h 

112 rem hoogste serie 

113 ift>s(x, 0,2)thens(x,0,2)=t 

114 rem berekening hoogste game 

115 ifs(x, 0,3)<glthens(x,0,3)=gl 

116 rem y = aantal input 

117 s(x,0,1) =y 

118 print"[2xCRSR-DOWN]zijn[SPACE]er[S 
PACE]nog[SPACE]meer[SPACE]gegevens 
[SPACE][CRSR-DOWN]":gosub261 

119 ifi$="n"then79 

120 ifi$="j"then84 

121 rem 

122 rem score overzicht 

123 rem 

124 print"[SHIFT-CLR]"p$:printtab(12)" 
hcp[SPACE]en[SPACE]score[SPACE]ove 
rzicht":printp$"[CRSR-DOWN]":gosub267 

125 gosub261:ifi$="n"thenl24 

126 ifx=0then29 

127 ifx=llthen398 

128 ifs(x,0,l)=0thenl24 
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166 

167 

168 


169 

170 


171 


print"[SHIFT-CLR][HOME][CRSR-RIGHT 172 

][CTRL-9][COM-l]blz.0[SPACE][CTRL- 173 

2][SPACE]score[SPACE]overzicht[SPA 
CE]bowling[2xSPACE]"jj$"[SPACE][CT 
RL 0]":b=49 174 

print"[COM-1]UDDDDDDDDDDDDDDDDDDDD 175 

DDDDDDDDDDDDDDDDDI" 176 

print"G[CTRL-2]speler:[SPACE]"n$(x); 177 

printtab(23)"cmpt[SPACE]nr[SPACE]: 178 

"s (x,0,0)tab(38)"[COM-l]H" 179 

print"G"tab(38)"H" 180 

prinf'G[CTRL-2]team[2xSPACE]:[SPAC 181 

E]"bt$tab(23)"h.game[2xSPACE]:"s(x 182 

, 0, 3)tab(38)"[COM-1]H" 183 

print"G"tab(38)"H" 184 

prinf'G[CTRL-2]league:[SPACE]”l$ta 185 

b(23)"h.serie[SPACE]:"s(x,0,2)tab( 186 

38)"[COM-1]H" 187 

print"JFFFFFFFFFFFFFFFFFFFFFFFFFFF 188 

FFFFFFFFFFK[CTRL-2]" 
s%=l 

fork=ltoag:printtab(s%)k; 

s%=s%+4 189 

next k:k=0 190 

printtab(17)"tot"tab(23)"sub"tab(3 191 

0)"genT'tab(35)"hcp":printp$ 192 

fory=ltos(x,0,1) 193 

pokel029,b:rem b=blz 194 

forz=ltoag 

ifs(x,y,z)>199thenprint"[COM-1]"s( 

x,y,z)"[CTRL-2][CRSR-LEFT]:gotol49 195 

ifs(x,y,z) <100thenprinf ’ [SPACE]"s( 

x,y,z)"[CRSR-LEFT]:gotol49 196 

prints(x, y,z);:ifs(x,y,z)>99thenpr 

int"[CRSR-LEFT]"; 197 

next 

printtab(16)s(x,y,5); 198 

printtab(22)s(x, y, 6) ; 199 

printtab(29)s(x,y,7);:ifhc$="n"the 
nprinttab(35):gotol54 

printtab(34)s(x,y,8): 200 

k=k+l:ifk=10thenl56 201 

nexty 202 

k=0:print"[HOME][21xCRSR-DOWN]" 203 

printf1$"[SPACE]volgend[SPACE]sche 
rm[SPACE]"f7 $"score[SPACE]overzicht" 
geti$:ifi$="[Fl]"thenlöl 204 

ifi$="[F7]"thenl24 205 

ifi$<>"[Fl]"thenl58 206 

forv=1424tol823:pokev,96:next:prin 
t"[HOME][9xCRSR-DOWN]":ify-l=s(x,0 
,l)thenl64 207 

ifs(x,o,1)=0thenl64 208 

b=b+l:nexty 

print"[4xCRSR-DOWN]volgend[SPACE]s 

cherm[SPACE]niet[SPACE]aanwezig":g 209 

otol56 210 

rem 211 

rem laden 

rem 

gosub298:print"[SHIFT-CLR]”p$:prin 212 

ttab(13)"gegevens[SPACE]laden":pri 213 

ntp$"[CRSR-DOWN]" 214 

gosub301 .-print" [HOME] [3xCRSR-DOWN] " 
input "naam [SPACE] van [SPACE] bestand 
[SPACE]:[CTRL-9]";f$:print"[CTRL-0 215 

][CRSR-DOWN]":f$="b."+f$ 216 

print"[HOME][7xCRSR-DOWN]";:gosub261 217 


ifi$="n"then29 

print"[CRSR-DOWN]druk[SPACE]return 
[SPACE]om[SPACE]bestand[SPACE]te[S 
PACE]laden" :prinf ' [CTRL-0] [CRSR-UP] ' 
gosub 393 

open2,8,2,"0:"+f$+",s,r":gosub286 

input#2,d$,bt$,1$,hc$,jj$,ag$,sp$ 

ag=val(ag$):sp=val(sp$) 

forx=ltosp:input#2, n$(x) :next 

forx=ltosp 

forz=0to3 

input#2,s(x,0,z) 

nextz,x 

forx=ltosp:k=s(x,0,1) 

fory=ltok 

forz=0to8 

input#2,s(x,y,z):nextz,y,x 
close2:closel5 

print"[3xCRSR-DOWN]laatste[SPACE]d 

atum[SPACE]van[SPACE]invoer[SPACE] 

was[SPACE]"d$:printtab(10)"druk[SP 

ACE]return[SPACE]" 

gosub393 

goto29 

rem 

rem gegevens wijzigen 
rem 

print"[SHIFT-CLR]"p$:printtab(10)" 
gegevens[SPACE]wijzigen":printp$"[ 
CRSR-DOWN]" 

printf2$"[SPACE]speler[SPACE]laten 
[SPACE]vervallen[CRSR-DOWN]" 
printf4$"[SPACE]speler[SPACE]toevo 
egen[CRSR-DOWN]" 

printf6$"[SPACE]naam[SPACE]team[CR 
SR-DOWN]" 

printf8$"[SPACE]menu[CRSR-DOWN]" 
ifsp=0thenprint"[3xCRSR-DOWN]geen[ 
SPACE]bestand[SPACE]aanwezig...dru 
k[SPACE]f8" 

getw$:ifw$="[SPACE]"orw$=""then200 
ifasc(w$)<137orasc(w$)>140then200 
onasc(w$)-136goto203,218,221,29 
print"[SHIFT-CLR]"p$:printtab(10)" 
speler[SPACE]laten[SPACE]vervallen 
":printp$ 

gosub267:gosub261:ifi$="n"thenl94 
ifx=0thenl94 

ifx=llthenprint"[CRSR-DOWN]alleen[ 
SPACE]bij[SPACE]overzicht[SPACE]dr 
uk[SPACE]return":gosub393:goto203 
n$(x):forz=0to4:s(x,0,z)=0:next 
print”[CRSR-DOWN]wordt[SPACE]deze[ 
SPACE]speler[SPACE]vervangen[SPACE 
] j/n" 

geti$:ifi$="[SPACE]"ori$=""then209 
ifi$="n"then213 

print:input"naam[SPACE]nieuwe[SPAC 
E]speler:[SPACE]n$(x):input"comp 
uter[SPACE]nummer:[SPACE]";s(x,0,0) 
gotol94 
ifx=spthen217 

print"[CRSR-DOWN]even[SPACE]geduld 

[SPACE]a.u.b.":fork=xtosp: n$ (k 

)=n$(k+1):next 

fork=xtosp:fory=0to52:forz=0to8 
s (k, y, z)=s (k+1, y, z) :nextz, y, k 
sp=sp-l:gotol94 
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218 print"[SHIFT-CLR]"p$:printtab(10)" 
speler[SPACE]toevoegen":printp$ 

219 print"[CRSR-DOWN]":input"naam[SPAC 
E]speler:[SPACE]";n$(sp+1):sp=sp+l 
: s (sp, 0,1) =0 

220 print"[CRSR-DOWN]":input"computer[ 
SPACE]nummer:[SPACE]s(sp,0,0):go 
tol94 

221 print"[SHIFT-CLR]"p$:printtab(10)" 
naam[SPACE]team[SPACE]wij zigen":pr 
intp$ 

222 print"[CRSR-DOWN]"tab(22)bt$:print 
"[2xCRSR-UP]" 

223 input"naam[SPACE]team[lOxSPACE]:[C 
TRL 9]";bt$ 

224 gotol94 

225 rem 

226 rem saven 

227 rem 

228 gosub298:print"[SHIFT-CLR]"p$:prin 
ttab(12)"gegevens[SPACE]saven":pri 
ntp$"[CRSR-DOWN]" 

229 gosub301:print"[HOME][3xCRSR-DOWN]" 

230 printtab(20)bt$:print"[2xCRSR-UP]" 

231 input"naam[SPACE]van[SPACE]bestand 
[SPACE]:[CTRL-9]";f$ 

232 printtab(19)d:print"[2xCRSR-UP]" 

233 input"[CTRL-0]geef[SPACE]datum[7xS 
PACE]:[CTRL-9]";d$:print"[CTRL-0]" 

:f$="b."+f$ 

234 gosub261:ifi$="n"then29 

235 print"[CRSR-DOWN]druk[SPACE]return 
[SPACE]om[SPACE]bestand[SPACE]t e[S 
PACE]saven":print"[CTRL-0]" 

236 gosub393 

237 open2,8,2,"'0:"+f$+",s,w" 

238 gosub286:ag$=str$(ag):sp$=str$(sp) 

239 print#2,d$k$bt$k$l$k$hc$k$ j j$k$ag$ 
k$sp$ 

240 forx=ltosp:print#2,n$(x):next 

241 forx=ltosp:forz=0to3 

242 print#2,s(x,0,z):nextz,x 

243 forx=ltosp:k=s(x,0,1) 

244 fory=ltok 

245 forz=0to8 

246 print#2,s(x,y,z)rnextz,y,x 

247 close2:closel5 

248 goto29 

249 rem 

250 rem stoppen 

251 rem 

252 print"[SHIFT-CLR]" 

253 print"[COM-1]"p$:printtab(17)"stop 
pen":printp$"[CRSR-DOWN]" 

254 print”[2xCRSR-DOWN]heeft[SPACE]u[S 
PACE]de[SPACE]gegevens[SPACE]al[SP 
ACE]opgeborgen[CRSR-DOWN]":gosub261 

255 ifi$="j"thenprint"[SHIFT-CLR][5xCR 
SR-DOWN][5xCRSR-RIGHT]tot[SPACE]de 

[SPACE]volgende[SPACE]keer. 

" : end 

256 print"[SHIFT-CLR]":pokel707,45:pok 
el708,62 

257 poke55979,1:poke55980, 1:goto30 

258 rem 

259 rem ja/nee 

260 rem 

261 i$="printtab(15);:input"zeker[SP 


ACE]weten[SPACE](j/n):[2xSPACE]n[3 
xCRSR-LEFT]";i$ 

262 ifi$<>"n"andi$<>"j"then277 

263 return 

264 rem 

265 rem keuze speler 

266 rem 

267 print"[HOME][4xCRSR-DOWN]voor[SPAC 
E]welke[SPACE]speler" 

268 fork=0tosp:printk;:printn$(k):next 

269 print"11[SPACE]"n$(11) 

270 input"[CRSR-DOWN]geef[SPACE]nummer";x 

271 ifx>sp and xOll then267 

272 print"[CRSR-UP]"tab(17)"=[SPACE]"n 
$ (x) :print 

273 return 

274 rem 

275 rem toon voor verkeerde aanslag 

276 rem 

277 poke54296,15 :rem volume 

278 poke54277,50:rem a/v tijd 50 

279 poke54278,248:rem a/v tijd 248 

280 poke54273,50:poke54272,50:rem to 
on 50-50 

281 poke54276,33:w=0 

282 w=w+l:ifw<15then282 

283 poke54276,0:poke54277,0:poke54278,0 

284 print" [2xCRSR-TJP] " :goto261 

285 rem 

286 rem disk error reading 

287 rem 

288 openl5,8,15:input#15,er,er$ 

289 ifer<20thenreturn 

290 print"[CTRL-9][SPACE]disk[SPACE]er 
ror:[SPACE][CTRL-0]"er"[SPACE]"er$ 

"[2xCRSR-DOWN]" 

291 print" [CRSR-UP] druk [SPACE] "fl$"[2x 
SPACE] in [SPACE ]voor[ SPACE ]menu":fo 
rw=ltol00:next 

292 geti$:print"[CRSR-UP][5xCRSR-RIGHT 
][SPACE]fl[SPACE][CRSR-RIGHT]":for 
w=otol00:next 

293 ifi$<>"[Fl]"then291 

294 closel5:close2:goto29 

295 rem 

296 rem directory lezen bestanden 

297 rem 

298 print"[SHIFT-CLR][4xCRSR-DOWN][2xC 
RSR-RIGHT]plaats[SPACE]disk[SPACE] 
in[SPACE]drive[7xSPACE]druk[SPACE] 
return[SPACE]" 

299 gosub393 

300 return 

301 print"[HOME][16xCRSR-DOWN]bestande 
n:[SPACE]"; 

302 openl,8,0,"$0" 

303 get#l, b$ : if stOOthen 309 

304 ifb$Ochr$ (34) then303 

305 get#l, b$ : ifb$Ochr$ (34) thenc$=c$+b 
$:goto305 

306 ifleft$(c$,2)="b."thenprinttab(12) 
mid$(c$,3,16):c$="":goto303 

307 c$="":get#l,b$:ifb$=chr$(32)then303 

308 ifst=0then303 

309 closel : return 

310 rem 

311 rem gegevens printer 

312 rem 
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313 x%=0:print"[SHIFT-CLR]druk[SPACE]r 
eturn[SPACE]als[SPACE]de[SPACE]pri 
nter[SPACE]aan[SPACE]staat?" 

314 gosub 393 

315 print"[SHIFT-CLR]"p$:printtab(17)" 
printen":printp$"[CRSR-DOWN]" 

| 316 printfl$"[SPACE]team[SPACE]gegeven 

s[CRSR-DOWN]" 

317 printf3$"[SPACE]alle[SPACE]spelers 
[CRSR-DOWN]" 

[ 318 printf5$"[SPACE]per[SPACE]speler[C 

I RSR-DOWN]" 

| 319 printf7$"[SPACE]menu[CRSR-DOWN]" 

320 ifsp=Othenprint"[CRSR-DOWN]geen[SP 
ACE]bestand[SPACE]aanwezig[3xSPACE 
]druk[SPACE]f7" 

321 geti$:ifi$="[SPACE]"ori$=""then321 

322 ifasc(i$)<133orasc(i$)>136then321 

323 onasc(i$)-132goto324,337,339, 29 

I 324 print"[SHIFT-CLR]"p$:printtab(17)" 

team[SPACE]gegevens":printp$ 

325 open4,4:print#4,chr$(14)chr$(16)"1 
Ogegevens[SPACE]bowling[SPACE]team 
:[SPACE]"bt$ 

I 326 print#4,chr$(15)chr$(13) 

327 print#4,chr$(16)"lOleague[6xSPACE] 

:[SPACE]"l$chr$(13) 

I 328 print#4,chr$(16)"lOhandicap[4xSPAC 

E]:[SPACE]"hc$chr$(13) 
j 329 print#4,chr$(16)"lOaantal[SPACE]ga 
mes:[SPACE]"agchr$(13) 

330 print#4,chr$(16)"10seizoen[5xSPACE 
] : [SPACE]"jj$chr$(13)chr$ (13) 

331 print#4,chr$(14)chr$(16)"10de[SPAC 
E]spelers" 

332 print#4,chr$(15)chr$(10) 

i 333 fork=ltosp 

I 334 print#4,chr$(16)"10"s(k,0,0)chr$(1 

6)"16"n$(k)chr$ (13) :next 

335 print#4,"":close4:goto315 
I 336 rem 

I 337 print"[SHIFT-CLR]"p$:printtab(10)" 

printen[SPACE]alle[SPACE]speler":p 
rintp$"[CRSR-DOWN]" 

! 338 forx=ltosp:print"[CRSR-DOWN]"n$(x) 

:goto342 

1 339 print"[SHIFT-CLR]"p$:printtab(10)" 

printen[SPACE]per[SPACE]speler":pr 
intp$"[CRSR-DOWN]" 

I 340 gosub267:gosub261:x%=x 

341 ifx=0then315 

342 open4,4:print#4,chr$(14)chr$(16)"0 
5gegevens[SPACE]speler[SPACE]en[SP 
ACE]bowling[SPACE]score" 

I 343 print#4,chr$(15)chr$(13) 

344 print#4,chr$(16)"10naam[SPACE]team 
[3xSPACE]:[SPACE]"bt$ 

345 print#4,chr$(16)"10naam[SPACE]spel 
er[SPACE]:[SPACE]"n$(x); 

346 print#4,chr$(16)"50computer[SPACE] 
nummer: "s (x, 0, 0) 

347 print#4,chr$(16)"lOleague[6xSPACE] 

I :[SPACE]"1$ 

348 print#4,chr$(16)"lOhandicap[4xSPAC 
E]:[SPACE]"hc$; 

I 349 print#4,chr$(16)"50hoogste[SPACE]s 
I erie[2xSPACE]:"s(x,0,2) 

350 print#4,chr$(16)"lOaantal[SPACE]ga 


mes:[SPACE]"ag 

351 print#4,chr$(16)"lOseizoen[5xSPACE 
]:[SPACE]"jj$; 

352 print#4,chr$(16)"50hoogste[SPACE]g 
ame[3xSPACE]:"s(x, 0,3) 

353 print#4,chr$(10) 

354 print#4,chr$(16)"04datum"; 

355 print#4,chr$(16)"141" ; 

356 print#4,chr$(16)"222"; 

357 print#4,chr$(16)"303"; 

358 ifs(x,y,4)=0then360 

359 print#4,chr$(16)"384"; 

360 print#4,chr$(16)"45tot"; 

361 print#4,chr$(16)"53sub"; 

362 print#4,chr$(16)"62gem"; 

363 print#4,chr$(16)"69hcp" 

364 forpp=lto80:print#4,"=";:next:print#4 

365 fory=ltos(x,0,1):letdag$=str$(s(x, 

y,o>) 

366 iflen(dag$)=6thendag$="0"+mid$(dag 
$,2,6):goto368 

367 dag$=mid$(dag$,2,6) 

368 print#4,chr$(16)"04"dag$; 

369 print#4,chr$(16)"12"s(x,y,l);:ifs( 
x,y,1)>=200thenprint#4,"[SPACE]*"; 

370 print#4,chr$(16)"20"s(x,y,2);:ifs( 
x,y,2)>=200thenprint#4,"[SPACE]*"; 

371 print#4,chr$(16)"28"s(x,y,3);:ifs( 
x,y,3)>=2 0 0thenprint#4,"[SPACE]*"; 

372 ifs(x,y,4)=0then374 

373 print#4,chr$(16)"36"s(x,y,4) ; :ifs( 
x,y,4)>=200thenprint#4,"[SPACE]*"; 

374 print#4,chr$(16)"44"s(x,y,5); 

375 print#4,chr$(16)"52"s(x,y,6); 

376 print#4,chr$(16)"61"s(x,y,7); 

377 ifhc$="nee"then380 

378 ifs(x,y,8)=0then380 

379 print#4,chr$(16)"68"s(x,y,8):goto381 

380 print#4,"" 

381 nexty 

382 forpp=lto80:print#4,"=";:next 

383 print#4:close4 

384 ifx%O0then315 

385 print"[CRSR-DOWN]stel[SPACE]printe 
r[SPACE]in[SPACE]voor[SPACE]de[SPA 
CE]volgende[SPACE]speler" 

386 print"[CRSR-DOWN]druk[SPACE]return" 

387 gosub393 

388 nextx 

389 goto315 

390 rem 

391 rem return chr$(13) 

392 rem 

393 geti$ : ifi$Ochr$ (13)then393 

394 return 

395 rem 

396 rem overzicht alle spelers 

397 rem 

398 print"[SHIFT-CLR]"p$:printtab(8)"o 
verzicht[SPACE]alle[SPACE]spelers" 
:printp$"[CRSR-DOWN]" 

399 print"naam"tab(15)"[SPACE]gem"tab( 

20)"hcp"tab(25)"gespeeld" 

400 print"-"tab (15) " [SPACE]-"tab ( 

20) "-"tab (25) "-" 

401 forx=ltosp:y=s(x,0,1):printn$(x)ta 
b(15)s(x,y,7)tab(20)s(x,y,8)tab(25 
)y:next 
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402 print"[CRSR-DOWN]druk[SPACE]return 404 gotol24 

[SPACE]voor[SPACE]menu" 

403 gosub 393 EINDE LISTING bowlen 


Checksum Bowlen 64 


REGEL 

1 

163 

REGEL 

82 

215 

REGEL 

163 

38 

REGEL 

244 

172 

REGEL 

325 

135 

REGEL 

2 

8 

REGEL 

83 

127 

REGEL 

164 

215 

REGEL 

245 

153 

REGEL 

326 

242 

REGEL 

3 

198 

REGEL 

84 

200 

REGEL 

165 

143 

REGEL 

246 

28 

REGEL 

327 

245 

REGEL 

4 

175 

REGEL 

85 

108 

REGEL 

166 

243 

REGEL 

247 

18 

REGEL 

328 

185 

REGEL 

5 

210 

REGEL 

86 

184 

REGEL 

167 

143 

REGEL 

248 

244 

REGEL 

329 

120 

REGEL 

6 

247 

REGEL 

87 

211 

REGEL 

168 

233 

REGEL 

249 

143 

REGEL 

330 

35 

REGEL 

7 

211 

REGEL 

88 

234 

REGEL 

169 

126 

REGEL 

250 

184 

REGEL 

331 

64 

REGEL 
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_ Spreadsheet 64 


i De Heer O.R. Vos uit Amersfoort volgde een cur- 
] sus Lotus 1 2 3, Thuis achter zijn trouwe Com- 
i modore 64 heeft hij zijn pas verworven kennis 
i gekombineerd met reeds bestaande program¬ 
meer kennis gekoppeld tot het volgende program¬ 
ma. Een uitleg hoe het programma gebruikt moet 
worden is in het programma opgenomen. Deze 
wordt verkregen door het indrukken van de ?. 

5 print"[SHIFT-CLR]":poke53280,0:pok 
e53281,0:dimcm$(2600):poke650,0 
10 rem 

| 15 11$="[CTRL-9][4xSPACE][CTRL-0][10x 

SHIFT-*] [SHIFT—h] [lOxSHIFT-*] [SHIF 
T +][lOxSHIFT-*][COM-W][COM-G]" 

20 12$="[4xCRSR-RIGHT][lOxSPACE]B[10x 

SPACE]B[lOxSPACE]B[COM-G]" 

! 25 w$="[lOxSPACE][SHIFT--][llxCRSR-LE 

FT][CTRL-4]" 

30 x$="[CTRL-9][37xSPACE][CTRL-0][COM G]" 

I 35 y$="[39xSPACE]" 

I 40 z$="[CTRL-9]abcdefghijklmnopqrstuv 

wxyz[CTRL-0]" 

J 45 rl=l:kl=2:r2=l:cd=l 

I 50 print"[HOME][4xCRSR-DOWN][CTRL-6] 

I 55 print"[CTRL-9][9xSPACE]"mid$(z$,kl 

, 1)"[9xSPACE]"mid$(z$,kl+1,1); 

60 print"[llxSPACE]"mid$(z$,kl+2,1)"[5xSP 
ACE][CTRL-0][COM-H]":printll$:d=r2 
I 65 fori=rltorl+7 

! 70 print"[CTRL-9][4xSPACE][4xCRSR-LEF 

T][CTRL-6]"i"[CTRL-0]":print"[CRSR 
-UP][4xCRSR-RIGHT]"w$;left$(cm$(d) 

, 10)"[CTRL-6]"; 

75 printtab(15)w$;left$(cm$(d+100),10 
)"[CTRL-6]"; 

| 80 printtab(26)w$;left$(cm$(d+200),10 

)"[CTRL-6]"tab(37)"[COM-H]" 

85 d=d+l:printll$:next 
90 print"[CTRL-9][6xSPACE](c)[SPACE]1 
9 87 [2xSPACE]o.r.vos[SPACE]-[SPACE] 
software[3XSPACE][CTRL-0][COM-G]" 

I 95 printtab(14)"[CTRL-9][CTRL-4][PIJL 

LINKS][SPACE]=[SPACE]escape[CTRL-6 
][CTRL-0][3XSPACE]?[SPACE]=[SPACE] 
help[HOME]" 

100 print"[HOME][CTRL-0][SPACE][CTRL-4 
]commando's[SPACE][CTRL-9][SPACE]n 
[SPACE]g[SPACE]h[SPACE]w[SPACE]f[S 
PACE]c[SPACE]s[SPACE]1[SPACE]z[SPA 
CE]m[SPACE][CTRL-6][CTRL-0][SPACE]";y$ 
I 105 rem 

110 printy$"[CRSR-UP][CTRL-6][SPACE]co 
mmand:"; 
j 115 gosub480 

I 120 ifa$="n"then920 

125 ifa$="g"thent=l:fo=0:gotol95 
130 ifa$="h"then45 
135 ifa$="w"then510 
1 140 ifa$="f"then310 

I 145 ifa$="c"then525 

J 150 ifa$="m”then520 

155 ifa$="s"then665 
I 160 ifa$="l"then540 

I 165 ifa$="z"then970 

I 


170 ifa$="[CRSR-RIGHT]"andkl<25thenkl= 
kl+1:r2=r2+100:goto50 
175 ifa$="[CRSR-LEFT]"andkl>2thenkl=kl 
-1:r2=r2-100:goto50 

180 ifa$="[CRSR-DOWN]"andrl<93thenrl=r 
1+1:r2=r2+l:goto50 

185 ifa$="[CRSR-UP]"andrl>lthenrl=rl-l 
:r2=r2-l:goto50 
190 gotoll5 

195 print"[HOME][2xCRSR-DOWN][CTRL-6]g 
oto[SPACE]cel:"; 

200 c=0:r=0:o=0:v$="" 

205 gosub480 

210 ifa$=chr$(13)then2 0 5 

215 c=asc(a$)-65:ifc=0then225 

220 r=100 

225 ifc<0orc>26then200 
230 ift=lthent=0:goto240 
235 return 
240 printa$; 

245 gosub480 
250 ifa$=chr$(13)then275 
255 b=asc(a$):ifb<48orb>57then245 
260 v$=v$+a$:o=val(v$):ifo<0oro>100the 
nprint"[CTRL-0][3xCRSR-LEFT][3xSPA 
CE][3xCRSR-LEFT]";:t=l:goto200 
265 printa$; 

270 goto245 

275 cel=(c*r)+o:ifcel>cdthencd=cel 
280 iffo=lthenreturn 

285 print"[HOME][2xCRSR-DOWN][CTRL-9]e 
nter[CTRL-0][8xSPACE][7xCRSR-LEFT] 
:pokel9,1:inputcm$(cel):pokel9,0 
290 cm$(cel)=cm$(cel)+"[lOxSPACE]" 

295 goto50 

300 print"[HOME][CTRL-9][CTRL-2][2xSPA 
CE]laatst[SPACE]ingevoerde[SPACE]c 
el[SPACE]is[SPACE]leeg[6xSPACE][CT 
RL 0][CTRL-6]":gosub710:goto310 
305 print"[HOME][CTRL-9][CTRL-2][2xSPA 
CE]cel[SPACE]bevat[SPACE][CTRL-3]g 
een[CTRL-2][SPACE]rekenkundig[SPAC 
E]getal[3xSPACE][CTRL-0][CTRL-6]": 
gosub710 

310 print"[HOME][CTRL-9][CTRL-4]u[SPAC 
E]kunt[SPACE]alleen[3xSPACE]+[SPAC 
E]-[SPACE]*[SPACE]~[SPACE]/[3xSPAC 
E]gebruiken[CTRL-0][CTRL-6][15xSPACE]" 
315 print"[HOME][2xCRSR-DOWN][CTRL-9]f 
ormule:[CTRL-0][lOxSPACE][lOxCRSR- 
LEFT]:q=0:uit=0:do=0:t=0 
320 gosub200:printa$; 

325 gosub480 

330 ifa$="+"thenprinta$;:goto380 
335 ifa$="-"thenprinta$;:goto380 
340 ifa$="*"thenprinta$;:goto380 
345 ifa$="/"thenprinta$;:goto380 
350 ifa$="~"thenprinta$;:goto380 
355 ifa$="="thenprinta$;:uit=l:goto380 
360 b=asc(a$):ifb<48orb>57then325 
365 v$=v$+a$:o=val(v$):ifo<0oro>100the 
nprint"[CTRL-0][3xCRSR-LEFT][3xSPA 
CE][3xCRSR-LEFT]:fo=l:gosub200 
370 printa$; 

375 goto325 

380 ifdo=lthend$=r$:r$=a$:goto390 
385 r$=a$ 

390 q=q+l 
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395 cel=(c*r)+o 
400 ifcm$(cel)=""then300 
405 ifasc(cm$(cel))=<46orasc(cm$(cel)) 
=>58then305 

410 ifq=lthenf(1)=val(cm$(cel)):v$="": 
do=l:goto320 

415 ifq=2thenf(2)=val(cm$(cel)):v$="" 

420 ifd$="+"thenuit$=str$(f(1)+f(2)) 

425 ifd$="-"thenuit$=str$(f(1)-f(2)) 

430 ifd$="*"thenuit$=str$(f(1)*f(2)) 

435 ifd$="/"thenuit$=str$(f(1)/f(2)) 

440 ifd$="[KWADRAATPIJL]"thenuit$=str$ 

(f(l)[KWADRAATPIJL]f(2)) 

445 f(1)=val(uit$):q=l 

450 ifuit=lthenuit=0:q=0:goto460 

455 goto320 

460 fo=l:t=l:gosub200:fo=0:t=0 
465 cm$(cel)=str$(f(1)):f (1)=0 
470 ha=val(cm$(cel)) 

475 cm$(cel)=mid$(str$(int((ha+0.51*10 
[KWADRAATPIJL]-2)*10[KWADRAATPIJL]2 
)*10[KWADRAATPIJL]-2),2,9):goto50 
480 poke204,0:pokel98,0:waitl98,1:geta$ 

485 poke207,0:poke204,1 
490 ifa$=chr$ (20)then480 
495 ifa$=" ? "then720 
500 ifa$="[PIJL LINKS] "then45 
505 return 

510 print"[HOME]"y$y$y$y$"[HOME][CTRL9][C 
TRL-4] [SPACE]wissen[SPACE] [CTRL 0]" 

515 print"welke[SPACE]cel:[CTRL-6]";:f 
o=l:t=l:gosub200:cm$(cel)="":fo=0: 
goto50 

520 print"[HOME]"y$y$y$y$"[HOME][CTRL 
9][CTRL-4][SPACE]verplaatsen[SPACE 
][CTRL-0]":v=l:goto530 
525 print"[HOME]"y$y$y$y$"[HOME][CTRL 

9][CTRL-4][SPACE]copy[SPACE][CTRL0]" 
530 print"welke[SPACE]cel:[CTRL-6]";:f 
0 = 1 :t=l:gosub200:c$=cm$(cel):ifv=l 
thencm$(cel)=”":v=0 

535 print"[SPACE][CTRL-4]naar[SPACE]ce 
1:[CTRL-6]";:fo=l:t=l:gosub200:cm$ 

(cel)=c$:fo=0:t=0:goto50 
540 print"[SHIFT-CLR][CTRL-9][CTRL-4][ 
SPACE]scanning[SPACE][CTRL-0]" 

545 print"file's[SPACE]on[SPACE]disk[S 
PACE]:[CRSR-DOWN][7xCRSR-LEFT][CTR 
L 6]bloks[3xSPACE]prog.naam[CTRL-4 
]":d$="":a$="":b$="":c$="" 

550 openl,8,0,"$0":get#l,a$,b$ 

555 get#l,a$,b$ 

560 get#l,a$,b$ 

565 m=0 

570 ifa$<>""thenm=asc(a$) 

575 ifb$<>""thenm=m+asc(b$)*256 

580 d$=d$+"[CTRL-9][SPACE]"+mid$(str$( 

m) ,2)+"[SPACE][CTRL-0][SPACE]--[SPACE] 
585 get#l, b$ : ifstOOthenclosel :print" [CR 

SR-DOWN]terug[SPACE]naar[SPACE]menu[3x 
SPACE]j/n[SPACE]:gosub480:goto900 
590 ifb$Ochr$ (34) then585 
595 get#l,b$:ifb$Ochr$ (34) thend$=d$+b 
$:goto595 

600 get#l,b$:ifb$=chr$(32)then600 
605 c$="" 

610 c$=c$+b$:get#l,b$:ifb$<>""then610 
615 ifright$(d$,1)="[PIJL LINKS]"thenp 


rinttab(12)d$ 

620 d$="":goto555 

625 print:print"[CTRL-9][SPACE]laden[S 
PACE][CTRL-0]":input"[CTRL-4]file¬ 
naam [SPACE] :[CTRL-6]";fl$ 

630 open2,8,2," '0:"+fl$+"[SPACE] [PIJL 
LINKS],s,r" 

635 input#2,cd 
640 forcel=ltocd 
645 input#2,cm$(cel) 

650 ifcm$(cel)="."thencm$(cel)="" 

655 next 

660 close2:print"[SHIFT-CLR]":goto45 
665 print"[HOME]"y$y$y$y$"[HOME][CTRL 

9][CTRL-4][SPACE]saven[SPACE][CTRL 0]" 
670 input"[CTRL-4]file-naam[SPACE]:[CT 
RL 6]";fl$ 

675 open2,8,2," '0:"+fl$+"[SPACE] [PIJL 
LINKS],s,w" 

680 print#2,cd 
685 forcel=ltocd 

690 ifcm$(cel)=""thenprint#2,".":goto700 
695 print#2,cm$(cel) 

700 next 
705 goto660 

710 forw=0to3000:next:return 
715 next 

720 print"[HOME][4xCRSR-DOWN]" 

725 print"[4xCRSR-RIGHT][32xSPACE]" 

730 print"[4xCRSR-RIGHT][SPACE]n-toets 
[SPACE]=[SPACE]wis[SPACE]gehele[SP 
ACE]sheet[5xSPACE]" 

735 print"[4XCRSR-RIGHT][SPACE]g-toets 
[SPACE]=[SPACE]ga[SPACE]naar[SPACE 
]cel[SPACE]x[8xSPACE]" 

740 print"[4XCRSR-RIGHT][SPACE]h-toets 
[SPACE]=[SPACE]terug[SPACE]naar[SP 
ACE]ce1[SPACE]a1[4 xSPACE]" 

745 print"[4xCRSR-RIGHT][SPACE]w-toets 
[SPACE]=[SPACE]wis[SPACE]een[SPACE 
]cel[lOxSPACE]" 

750 print"[4XCRSR-RIGHT][SPACE]m-toets 
[SPACE]=[SPACE]verplaats[SPACE]1[S 
PACE]cel[SPACE]naar[SPACE]" 

755 print"[4xCRSR-RIGHT][llxSPACE]een[ 
SPACE]andere[SPACE]cel[7xSPACE]" 

760 print"[4xCRSR-RIGHT][SPACE]c-toets 
[SPACE]=[SPACE]copieer[SPACE]1[SPA 
CE]cel[SPACE]naar[3xSPACE]" 

765 print"[4XCRSR-RIGHT][llxSPACE]een[ 
SPACE]andere[SPACE]cel[7xSPACE]" 

770 print"[4xCRSR-RIGHT][SPACE]s-toets[SPA 
CE]=[SPACE]bewaar[SPACE]sheet[9xSPACE] 
775 print"[4xCRSR-RIGHT][SPACE]1-toets[SP 
ACE]=[SPACE]laad[SPACE]sheet[1lxSPACE] 
780 print"[4xCRSR-RIGHT][32xSPACE]" 

785 print"[4xCRSR-RIGHT][32xSPACE]" 

790 print"[4xCRSR-RIGHT][SPACE]cursor- 
toetsen[SPACE]=[SPACE]wandelen[SPA 
CE]door[SPACE]" 

795 print"[4xCRSR-RIGHT][18xSPACE]de[S 
PACE]sheet[6xSPACE]" 

800 print"[4xCRSR-RIGHT][2xSPACE][CTRL 9][ 
CTRL-4][SPACE]druk[3xSPACE]spatie[2x 
SPACE][CTRL-0][CTRL-6][14xSPACE]" 

805 print"[4xCRSR-RIGHT][32xSPACE][HOM 
E] [2 xCRSR-DOWN] [8xCRSR-RIGHT] 

810 gosub480 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


815 

820 

825 


830 

835 


840 


845 

850 

855 

860 

865 


870 

875 

880 

885 

890 

895 

900 

905 

910 

915 


print"[HOME][4xCRSR-DOWN]" 
print"[4xCRSR-RIGHT][32xSPACE]" 
print"[4xCRSR-RIGHT][SPACE]z-toets 
[SPACE]=[SPACE]zoek[SPACE]een[SPAC 
E]gegeven[5xSPACE]" 
print"[4xCRSR-RIGHT][32xSPACE]" 
print"[4xCRSR-RIGHT][SPACE]f-toets 
[SPACE]=[SPACE]b.v.[SPACE]al*b4-c2 
+h6/d3=[SPACE]" 

print"[4xCRSR-RIGHT][llxSPACE]dus[ 
SPACE][CTRL-9][CTRL-2]eerst [CTRL-0 
][CTRL-6][SPACE]formuleren[SPACE]" 
print"[4xCRSR-RIGHT][llxSPACE]dan[ 
SPACE]aangeven[SPACE]in[SPACE]welke" 
print"[4xCRSR-RIGHT][llxSPACE]cel[ 
2xSPACE]de[SPACE]uitkomst[5xSPACE]" 
print"[4xCRSR-RIGHT][llxSPACE]komt 
[SPACE]te[SPACE]staan[8xSPACE]" 
print"[4xCRSR-RIGHT][32xSPACE]" 
print"[4xCRSR-RIGHT][SPACE][PIJL L 
INKS]-toets[SPACE]=[SPACE]escape[SPA 
CE]op[SPACE]elk[SPACE]moment[SPACE]" 
print"[4xCRSR-RIGHT][llxSPACE]behalve[ 
SPACE]by[SPACE]enter[SPACE]en[2xSPACE] ' 
print"[4xCRSR-RIGHT][llxSPACE]zoek 
en [15xSPACE]" 

print"[4xCRSR-RIGHT][32xSPACE]" 
print"[4xCRSR-RIGHT][32xSPACE]" 
print"[4xCRSR-RIGHT][32xSPACE][HOM 
E][2xCRSR-DOWN][8xCRSR-RIGHT]"; 
gosub480:goto45 
ifa$="n"then625 

if a$="j"thenprint"[SHIFT-CLR]":goto45 

goto855 

return 


920 print"[HOME][llxCRSR-DOWN][12xCRSR 
-RIGHT][CTRL-9][15xSPACE] [CTRL-0]" 

925 print"[12xCRSR-RIGHT][CTRL-9][SPACE]1 

ege[2xSPACE]sheet[SPACE]![SPACE] [CTRL-0] 
930 print"[12xCRSR-RIGHT][CTRL-9][15xS 
PACE] [CTRL-0] " 

935 print"[12xCRSR-RIGHT][CTRL-9][SPACE]z 

eker[SPACE]weten[SPACE]![SPACE] [CTRL-0]" 
940 print"[12xCRSR-RIGHT][CTRL-9][4xSP 
ACE](j/n)[6xSPACE] [CTRL-0] " 

945 print"[12xCRSR-RIGHT][CTRL-9][15xS 
PACE] [CTRL-0] " 

950 geta$:ifa$=""then950 
955 ifa$="n"then45 
960 ifa$="j"thenrun 
965 goto950 

970 print"[HOME][2xCRSR-DOWN]zoek[SPAC 
E]gegeven[SPACE]:[CTRL-4]: 

975 pokel9,1:inputzk$:pokel9, 0 
980 bl=len (zk$) 

985 fori=ltocd:print"[HOME][3xCRSR-DOWN]"; 
990 ifzk$=left$(cm$(i),bl)thenl005 
995 next 

1000 print"[CRSR-UP]komt[SPACE]niet[SPA 
CE]in[SPACE]het[SPACE]bestand[SPAC 
E]voor!":gosub710:goto50 
1005 ifi>100thenpc=int(i/100)+1:gotol015 
1010 pc=l 

1015 a=int(i-((pc-1)*100)) 

1020 print"[CRSR-UP]gegeven[SPACE]staat[SP 
ACE]in[SPACE]cel[SPACE]"chr$(pc+64);a 
1025 gosub710:goto50 

EINDE L1STING spreadsheet 64 _ 
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PRINT OUT C-128 met Music maker 



Musicmaker 

570 

580 

paint 1,150,150 
with 2 

1 

Eindelijk, na een lange periode weer eens een 

590 

draw 1,170,150tol70,90 


muziek programma. Het is gemaakt door C. Dui- 

600 

draw 1,170,90tol78,99 


ker uit Zoetermeer. Het is zeker geen eenvoudig 

610 

draw 1,170,95tol78,104 


programma, maar na een tijdje stoeien blijken er 

620 

630 

640 

with 1 
color 1,3 

char 1,1,23,"music[SPACE]maker[SPA 

CE]v7.0[3xSPACE]by[SPACE]c.duij ker." 


vele dingen mee mogelijk. In het programma is 
een duidelijke gebruiks aanwijzing opgenomen. 


Deze handleiding kan ook worden uitgeprint. 

650 

char 1,1,24,"[9xSPACE]Powersoft[SP 
ACE]inc." 


10 

with 1 

660 

getkey a$ 


20 

30 

poke775,255 
trap 1970 

670 

if a$="#"ora$="$"ora$="."ora$="o"t 
hengoto840 


40 

scnclr:print:print"[2xSPACE]gebrui 
ksaanwijzing[SPACE]<j/n>" 

680 

if a$="u"ora$="v"ora$="w"ora$="h"t 
hengoto840 


50 

60 

getkey ga$ 

if ga$="j"thengotol390 

690 

if a$="q"ora$="i"ora$="s"ora$="r"t 
hengoto840 


70 

80 

if ga$="n"thengoto90 
goto50 

700 

if a$="m"ora$="1"ora$="2"ora$="3"t 
hengoto840 


90 

key 1," | " 

710 

if a$="4"ora$="5"ora$="6"thengoto840 


100 

key 3,")" 

720 

if a$="0"thengoto840 


110 

key 5, "!":key 7,”%" 

730 

if a$="*"thengoto940 


120 

tempo 255 

740 

if a$="t"thengoto840 


130 

color 1,1 

750 

if a$="[PIJL LINKS]"thengoto960 


140 

color 4,1 

760 

if a$="|"thengoto990 


150 

color 0,2 

770 

if a$=")"thengotol030 


160 

c=0 

780 

if a$="!"thengotol070 


170 

dim vo$(100) 

790 

if a$="%"thengotoll90 


180 

graphicl,1 

800 

if a$=":"thengotol320 


190 

a=10:b=30 

810 

if a$="~"thengotol810 


200 

t=2 

820 

if a$="/"thengotol870 


210 

fori=ltol5 

830 

if a$<"a"ora$>"g"thengoto660 


220 

box 1,a,0,b,50 

840 

r=r+l:if r=38 then r=r+l 


230 

a=a+20:b=b+20 

850 

if r=39 then goto890 


240 

next i 

860 

char 1,r,10,a$ 


250 

box 1,23,0,37,30,0,1 

870 

b$=b$+a$ 


260 

box 1,43,0,57,30,0,1 

880 

goto660 


270 

box 1,83,0,97,30,0,1 

890 

c=c+l 


280 

box 1,103,0,117,30,0,1 

900 

vo$(c)=b$ 


290 

box 1,123,0,137,30,0,1 

910 

r=0 


300 

box 1,163,0,177,30,0,1 

920 

char 1,1,10,"[40xSPACE]" 


310 

box 1,183,0,197,30,0,1 

930 

goto660 


320 

box 1,223,0,237,30,0,1 

940 

play b$ 


330 

box 1,243,0,257,30,0,1 

950 

goto660 


340 

box 1,263,0,277,30,0,1 

960 

char 1,1,10,"[40xSPACE]" 


350 

box 1,303,0,310,30,0,1 

970 

b$="":r=0 


360 

color 1,7 

980 

goto660 


370 

char 1,2,7,"o0 

990 

c=c+l 


380 

char 1,2,5,"c" 

1000 

vo$(c)=b$ 


390 

char 1, 4,5,"d" 

1010 

char 1,1,10,"[40xSPACE]" 


400 

char 1,7,5,"e" 

1020 

b$="":r=0:goto660 


410 

char 1,9,5, "f" 

1030 

for i=0toc 


420 

char 1,12,5,"g" 

1040 

play vo$(i) 


430 

char 1,14,5,"a" 

1050 

nexti 


440 

char 1,17,5,"b" 

1060 

goto660 


450 

char 1,19, 7, "ol" 

1070 

graphic 0:scnclr 


460 

char 1,19,5,"c" 

1080 

input "[SPACE]file[SPACE]naam[SPAC 


470 

char 1,22,5,”d" 

E] ?" 

fg$ 


480 

char 1,25,5,"e" 

1090 

if fg$=""thengotol080 


490 

char 1,27,5,"f" 

1100 

graphic 1,0 


500 

char 1,30,5,"g" 

1110 

dopen#2,(fg$),d0,u8,w 


510 

char 1,32,5,"a" 

1120 

print#2,c 


520 

char l,35,5,. M b" 

1130 

print#2,tp 


530 

char 1, 37,5, "c" 

1140 

for i=ltoc 


540 

char 1 ,37,7,"o2 

1150 

print#2,vo$(i) 


550 

color 1,1 

1160 

next i 


560 

circle 1,150,150,20,20 

1170 

dclose#2 
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- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 

o 

1 

O 1 

1180 

goto660 


n[SPACE]halve[SPACE]toon" 

o 


1190 

graphic 0:scnclr 

1580 

data "[llxSPACE]lager[SPACE]gespee 



1200 

input "[SPACE]file[SPACE]naam[SPAC 


ld. " 




E] ?";fg$ 

1590 

data "[SPACE]w[SPACE]-[SPACE]de[SP 


o 

1210 

if fg$=""thengotol080 


ACE]volgende[SPACE]noten[SPACE]zij 

o 

1220 

graphic 1,0 


n[SPACE]hele[SPACE]noten" 


1230 

dopen#2,(fg$) 

1600 

data "[SPACE]h[SPACE]-[SPACE]de[SP 



1240 

input#2,c 


ACE]volgende[SPACE]noten[SPACE]zij 


o 

1250 

input#2,tp 


n[SPACE]halve[SPACE]noten" 

o 

1260 

for i=ltoc 

1610 

data "[SPACE]q[SPACE]-[SPACE]de[SP 


1270 

input#2,vo$(i) 


ACE]volgende[SPACE]noten[SPACE]zij 



1280 

next i 


n[SPACE]1/4[SPACE]noten" 


o 

1290 

dclose#2 

1620 

data "[SPACE]i[SPACE]-[SPACE]de[SP 

o 

1300 

tempo tp 


ACE ] volgende [ SPACE]noten [ SPACE ] zij 


1310 

goto660 


n [ SPACE ] 1 /8[ SPACE ] noten" 



1320 

graphic 0:scnclr 

1630 

data " [ SPACE ] s [ SPACE ] - [ SPACE ] de [ SP 



1330 

input "[ SPACE]tempo[SPACE ]?[ SPACE ] 


ACE]volgende[SPACE]noten[SPACE]zij 

o 

o 


"; tp 


n [ SPACE ] 1 / 16 [ SPACE ] noten " 

1340 

if tp<lthentp=l 

1640 

data "[ SPACE ] . [ SPACE ] - [ SPACE ] de [ SP 


1350 

if tp>255thentp=255 


ACE ] volgende [ SPACE ] noten [ SPACE ] wor 



1360 

tempo tp 


den[SPACE] " 


o 

1370 

graphic 1,0 

1650 

data " [5xSPACE]de[SPACE]helft[SPAC 

o 

1380 

goto660 


E ] van [ SPACE ] hun [ SPACE ] lengte [ SPACE 


1390 

scnclr:fori=lto20:read z$:printz$: 


]gespeeld" 




nexti 

1660 

data "[SPACE]r[SPACE]-[SPACE]zet[S 


o 

1400 

data "[SPACE]gebruiks[SPACE]aanwij 


PACE]pause" 

o 


zing: " 

1670 

data "[SPACE]/[SPACE]-[SPACE]einde 


1410 

data "[SPACE]" 


[SPACE]programma" 



1420 

data "[SPACE]fl[SPACE]-[SPACE]onth 

1680 

print:print"[SPACE]druk[SPACE]toet 


o 


oud[SPACE]net[SPACE]ge s chreven[SPA 


s":getkey z$ 

o 


CE]regel." 

1690 

scnclr:fori=lto8:readz$:printz$:ne 


1430 

data "[SPACE]f3[SPACE]-[SPACE]spee 


xti 




1[SPACE]alle[SPACE]regels[SPACE]af." 

1700 

print:print"[SPACE]druk[SPACE]toet 



1440 

data "[SPACE]f5[SPACE]-[SPACE]save 


s":getkey z$ 


o 


[SPACE]muziekstuk[SPACE]op[SPACE]d 

1710 

print:print:print"[SPACE]lij st[SPA 

o 


isk. " 


CE]uit[SPACE]printen[SPACE][j/n]" 


1450 

data "[SPACE]f7[SPACE]-[SPACE]laad 

1720 

get keyz$ 




[SPACE]muziekstuk[SPACE]van[SPACE] 

1730 

if z$="j"thengotol760 


o 


disk." 

1740 

if z$="n"thengoto90 

o 

1460 

data "[SPACE]" 

1750 

gotol720 


1470 

data "[SPACE]:[SPACE]-[SPACE]veran 

1760 

restore 




der[SPACE]muziek[SPACE]tempo" 

1770 

open 4,4 


o 

1480 

data "[SPACE]*[SPACE]-[SPACE]speel 

1780 

fori=lto28:readz$:print#4,z$:nexti 

o 


[SPACE]net[SPACE]geschreven[SPACE] 

1790 

close 4 



regel." 

1800 

goto90 



1490 

data "[SPACE][PIJL 

1810 

fori=ltoc 



LINKS][SPACE]-[SPACE]wis[S 

1820 

vo$(i)="" 


o 


PACE]net[SPACE]ge s chreven[SPACE]re 

1830 

nexti 

o 


gel. " 

1840 

r=0:b$="" 


1500 

data "[SPACE]~[SPACE]-[SPACE]wis[S 

1850 

char 1,1,10,"[40xSPACE]" 




PACE]heel[SPACE]muziekstuk." 

1860 

goto660 


o 

1510 

data "[SPACE]t[SPACE]-[SPACE]zet[S 

1870 

graphic 0:scnclr:print"[2xSPACE]pr 

o 


PACE]andere[SPACE]stem." 


g.[SPACE]eindigen[SPACE][j/n][SPAC 


1520 

data "[SPACE]o[SPACE]-[SPACE]zet[S 


E] " 




PACE]1[SPACE]van[SPACE]de[SPACE]7[ 

1880 

getkeyhi$ 


o 


SPACE]oktaven.[SPACE](0-6) 

1890 

ifhi$="j"thengotol910 

o 

1530 

data "[SPACE]u[SPACE]-[SPACEJvolum 

1900 

scnclr:graphicl,0:goto660 



e. " 

1910 

key 1,"graphic" 



1540 

data "[SPACE]v[SPACE]-[SPACE]zet[S 

1920 

key 3,"directory"+chr$(13) 




PACE]1[SPACE]van[SPACE]de[SPACE]3[ 

1930 

key 5,"dsave"+chr$(34) 

o 

o 


SPACE]stemmen." 

1940 

key 7,"list"+chr$(13) 

1550 

data "[SPACE]#(noot)[SPACE]-[SPACE 

1950 

scnclr:print:print"[3xSPACE]tot[SP 




]de[SPACE]toon[SPACE]word[SPACE]ee 


ACE]de[SPACE]volgende[SPACE]keer.. 




n[SPACE]halve[SPACE]toon" 


.[SPACE]" 


o 

1560 

data "[llxSPACE]hoger[SPACE]gespee 

1960 

print"[18xCRSR-DOWN]":new 

o 

1570 

ld. " 

data "[SPACE]$(noot)[SPACE]-[SPACE 

1970 

résumé 





]de[SPACE]toon[SPACE]word[SPACE]ee 
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Checksum Music maker 128 
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37 
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78 
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2 

76 

regel 340 

131 

regel 

710 

57 

regel 1080 

74 

regel 

3 

11 

regel 350 

137 

regel 

720 

242 

regel 1090 

174 

regel 

4 

173 

regel 360 

35 

regel 

730 

175 

regel 1100 

116 

regel 

5 

85 

regel 370 

76 

regel 

740 

54 

regel 1110 

59 

regel 

10 

134 

regel 380 

64 

regel 

750 

142 

regel 1120 

144 

regel 

20 

158 

regel 390 

133 

regel 

760 

126 

regel 1130 

52 

regel 

30 

111 

regel 400 

198 

regel 

770 

120 

regel 1140 

238 

regel 

40 

108 

regel 410 

71 

regel 

780 

135 

regel 1150 

181 

regel 

50 

190 

regel 420 

105 

regel 

790 

141 

regel 1160 

121 

regel 

60 

55 

regel 430 

180 

regel 

800 

38 

regel 1170 

79 

regel 

70 

72 

regel 440 

113 

regel 

810 

254 

regel 1180 

164 

regel 

80 

83 

regel 450 

152 

regel 

820 

104 

regel 1190 

248 

regel 

90 

238 

regel 460 

60 

regel 

830 

246 

regel 1200 

120 

regel 

100 

96 

regel 470 

54 

regel 

840 

5 

regel 1210 

89 

regel 

110 

196 

regel 480 

185 

regel 

850 

236 

regel 1220 

33 

regel 

120 

37 

regel 490 

47 

regel 

860 

67 

regel 1230 

39 

regel 

130 

77 

regel 500 

39 

regel 

870 

74 

regel 1240 

57 

regel 

140 

25 

regel 510 

139 

regel 

880 

151 

regel 1250 

83 

regel 

150 

239 

regel 520 

98 

regel 

890 

206 

regel 1260 

142 

regel 

160 

233 

regel 530 

152 

regel 

900 

252 

regel 1270 

165 

regel 

170 

238 

regel 540 

7 

regel 

910 

13 

regel 1280 

224 

regel 

180 

61 

regel 550 

39 

regel 

920 

26 

regel 1290 

240 

regel 

190 

81 

regel 560 

97 

regel 

930 

185 

regel 1300 

79 

regel 

200 

85 

regel 570 

192 

regel 

940 

156 

regel 1310 

234 

regel 

210 

43 

regel 580 

19 

regel 

950 

127 

regel 1320 

102 

regel 

220 

117 

regel 590 

207 

regel 

960 

150 

regel 1330 

243 

regel 

230 

30 

regel 600 

223 

regel 

970 

20 

regel 1340 

138 

regel 

240 

60 

regel 610 

31 

regel 

980 

172 

regel 1350 

37 

regel 

250 

109 

regel 620 

56 

regel 

990 

39 

regel 1360 

180 

regel 

260 

252 

regel 630 

177 

regel 

1000 

162 

regel 1370 

80 

regel 

270 

29 

regel 640 

190 

regel 

1010 

160 

regel 1380 

169 

regel 

280 

96 

regel 650 

133 

regel 

1020 

195 

regel 1390 

255 

regel 

290 

104 

regel 660 

235 

regel 

1030 

204 



regel 

300 

104 

regel 670 

36 

regel 

1040 

64 



regel 

310 

220 

regel 680 

83 

regel 

1050 

172 



regel 

320 

129 

regel 690 

163 

regel 

1060 

181 
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HÉT RECEPT VOOR GOEDESERVICE! 


Helaas bestaat er geen computer die 
NOOIT stuk gaat. Daarom staat het 
service-team van Escon klaar om al uw 
storingen te verhelpen. 

Escon is een geautoriseerd service- 
center dat on-line met de fabrikant is 
verbonden en gespecialiseerd is in 
service aan eindgebruikers, leveranciers 
én producenten. 


Uw voordeel 

■ U weet waar U aan toe bent, want Escon hanteert vaste 
reparatietarieven. Bij reparaties boven de fl. 150,— krijgt U 
op verzoek eerst een prijsopgave van de te verwachten 
kosten.* 

■ Op alle-reparaties geven wij drie maanden volledige ga¬ 
rantie. En natuurlijk gebruiken we altijd originele onder¬ 
delen zodat de kwaliteit gegarandeerd is. 


De mogelijkheden Escon - uitmuntend en veelzijdig 


i 


■ U brengt de computer zelf naar ons service centrum en 
haalt hem na reparatie weer af. 

■ U belt ons servicecentrum: wij halen Uw computer op en 
brengen hem na reparatie bij U terug.* 

■ In spoedgevallen brengt U, na een telefonische afspraak 
met ons service-centrum, de computer en U wacht op de 
reparatie.* 




□ 



■ 




* Hieraan zijn extra kosten verbonden. 

** Op deze computers verlenen wij voordelige 
service-abonnementen. 


Dl 


Dl 


Wij repareren alle DOS computers, maar zijn ook specialist 
in de volledige produktlijn van COMMODORE: C-64, C128 
(D), AMIGA 500/2000 en de PC-lijn vanaf PC 10 t/m PC- 
60.** Ook geven we service op randapparatuur. 



ELECTRONIC SERVICE CONTRACTORS BV 


Aanleveren reparaties en informatie over reparaties: 
ESCON BV ESCON (Gebouw Commodore) 

Antoniuslaan 1 Dynamostraat 1 

3341 GA H.l. Ambacht 1014 BN Amsterdam 

_telefoon: 01858-19922_ 


| 





GEOS 


Intergrated GEOS 

H et pakket GEOS is op zich al een fenomenaal programma, maar in 
combinatie met andere GEOS applicaties wordt de kracht van deze 
programmaserie pas echt duidelijk. Lees in dit artikel hoe u het geïnte¬ 
greerde karakter van deze software volledig kan benutten. In deze korte 
cursus GEOS integratie leert u de vele mogelijkheden van deze program- 


In dit artikel wordt aandacht besteed aan 
het uitwisselen van gegevens uit de ver¬ 
schillende GEOS applicaties. De opzet 
van dit artikel heeft een educatief karak¬ 
ter. Hiermee wordt bedoeld dat u al wer¬ 
kend met de programma’s leert wat de 
mogelijkheden van het totale pakket zijn. 
Op deze wijze ervaart u zelf hoe eenvou¬ 
dig en handig de gehele GEOS serie op 
elkaar inspeelt. Daarnaast is het ontspan¬ 
nende bezigheid waar u menig uurtje aan 
bezig kunt zijn. Met name de textmanager 
en de photomanager zijn hierbij van groot 
belang. Zij vormen de “koppeling” van de 
gegevens in de onderlinge applicaties. 
Aan de hand van een gefingeerd praktijk¬ 
voorbeeld worden de verschillende mo¬ 
gelijkheden getoond. 

Opzet en voorbereiding. 

Het gegeven voor deze casus is een sport¬ 
vereniging, met de naam JUMP, die een 
drietal sportaktiviteiten organiseert. Spe¬ 
lers kunnen zich als lid opgeven voor één 
van de aktiviteiten. Per maand is een con¬ 
tributie verschuldigd, waarmee de kosten 
per aktiviteit worden gedekt. De penning¬ 
meester van deze vereniging wil inzage 
hebben in de opbrengsten en uitgaven per 
aktiviteit. Voorts wil hij de leden volledi¬ 
ge duidelijkheid verschaffen over de fi¬ 
nanciële verhandelingen van de vereni¬ 
ging. Hij heeft daarbij de beschikking 
over een Commodore 64 en de GEOS 
programmaserie. Tot zover de gegevens 
van de vereniging. Indien u de cursus vol¬ 
ledig wilt volgen dient u over de volgende 
applicaties te beschikken. Allereerst 
GEOS 2.0 ( een lagere versie voldoet 
ook), GeoFile, GeoCalc, DeskPack plus 
en GeoChart. Nu is het niet zo, als u één 
van deze applicaties niet in u bezit heeft 
(hetgeen wel jammer is) dat u niet mee 
kunt doen. U kunt dan gewoon de cursus 
volgen en slaat dat gedeelte over waar de 
ontbrekende applicatie voor nodig is. 
Voorts is enige kennis of ervaring betref¬ 
fende de werking van de onderscheiden¬ 


ma s toe te passen. 



afb. 1. Graphics Grabber 



afb. 2. GeoPaint bewerking 


[üdmïïmmerT 1 

IHAAM : 


|ADRES : | 

IPÖSTCODE • 

|W00HPLAAI5 : | 

[TELEEQOH : 
jlHSCHR. DATUM : | 

iGEB. DATUM : ||6E51ACHTT j [MS 


afb. 3. indeling record 


■Hos : fil« ! “dit 

ËjJJSSF form ; diiclou 


forrn design {IS!:# 


;l!UMUMMF! 

♦dcuci entrq I • 

HAAM : 

piint j ; ; 

* 

j, i 

|Wn 

Spertel 

J 

ADRES : ji: 

!POSTCODE : 1 

IWOOHPtAATS : 1, 

. ITÉIEFOOH : h-irLy : 

llHSCHR. DATUM : j 

|6ÉB. DATUM . |:|6ESIACHT : jijt 


afb. 4. resultaat record 


lijke programma’s aan te bevelen. We 
zullen in de cursus niet te diep ingaan op 
de specifieke werking van elke applicatie 
op zich. Voor u begint is het raadzaam 
een nieuwe diskette te formatteren (in 
GEOS format) om de bestanden op weg 
te schrijven. 

Het “grabben” van plaatjes. 

De plaatjes die in het voorbeeld zijn ge 
bruikt komen van de Clip Art A en B dis¬ 
kette van NewsRoom, het zijn resp. 
BASKTBL3 en WORDS3. Deze plaatjes 
halen we op met behulp van de applicatie 
Graphics Grabber, zie afb. 1. Het is na¬ 
tuurlijk niet verplicht deze plaatjes te ge¬ 
bruiken, u mag zelf ook een ontwerp uit¬ 
kiezen. En beschikt u niet over Graphics 
Grabber dan kunt u andere plaatjes uit 
Printshop of PrintMaster halen met be¬ 
hulp van de PD programma’s, die in de 
vorige Commodore Info nr. 6 zijn behan¬ 
deld. 

Plaats de beide plaatjes in een Photoal- 
bum, die u “SPORTS” noemt. Copieer dit 
photoalbum naar een GeoPaint diskette 
en wijzig het ontwerp zoals in afb. 2 is 
weergegeven. 

Let wel dat de tekst JUMP is ingelezen 
middels een photo scrap en de tekst 
SPORTCLUB is ingevoerd met behulp 
van de tekstmodus van GeoPaint. Ten¬ 
slotte plaatst u het plaatje van de SPELER 
er in de tranparant modus overheen. 
Kleur het totaal in met de invulpatronen 
van GeoPaint en plaats tenslotte een ka 
der om het geheel heen. Copieer het uit¬ 
eindelijke resultaat naar een photo scrap 
en plaats het vervolgens in hetzelfde pho¬ 
toalbum “SPORTS”. 

Ontwerp database en invoer 
gegevens. 

We gaan nu het GeoFile bestand aanma¬ 
ken, zodat de essentiële gegevens van de 
vereniging ingevoerd kunnen worden. 
Copieer, voor zover dit nog niet is ge¬ 
beurd het photoalbum naar uw werkdis- 
kette. Bij het opstarten wordt een naam 
van het aan te maken bestand gevraagd. U 
noemt het bestand “LEDENBEST”. Klik 
vervolgens de optie align on aan uit het 
display menu. U kunt de indicator uit¬ 
schakelen, daar we deze toch niet nodig 
zullen hebben. Maak vervolgens het re¬ 
cord aan volgens het voorbeeld zoals is 
weergegeven in afbeelding 3. 

Eerst het plaatje invoegen en vervolgens 
de rubrieken. De rubriek NAAM wordt 
als sortfield gedefinieerd. Als het gehele 
record gereed is kunnen we beginnen met 
de invoer van gegevens, zie afb. 4. 

Het is de bedoeling dat u minimaal 6 re¬ 
cords invoert, zoals in het voorbeeld in af¬ 
beelding 5 is weergegeven. Dus 2 volley¬ 
ballers, 2 basketballers en 2 handballers. 
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Laat hierbij ook de leeftijden variëren en 
het geslacht. Deze gegevens hebben we 
namelijk later weer nodig. Met behulp 
van dit bestand kunnen nu diverse lijsten 
worden vervaardigd. Er kan worden ge¬ 
sorteerd op bepaalde gegevens of met be¬ 
hulp van een zoekcriterium. In een aparte 
sub lay-out kan bijvoorbeeld een alfabeti¬ 
sche lijst per sportaktiviteit worden afge¬ 
drukt. 

Ook het maken van indexkaarten behoort 
tot de mogelijkheden. Op die manier kan 
een goed geordende kaartenbak worden 
opgezet. We dienen nu twee sub lay-outs 
te maken om verder te kunnen met de in¬ 
gevoerde gegevens. De eerste sub lay-out 
dient naast het lidnummer, eveneens de 
naam, aktiviteit en de contributie te be¬ 
vatten. Deze sub lay-out is bestemd voor 
een later te maken calc scrap. De tweede 
sub lay-out dient te bestaan uit lidnum¬ 
mer, naam, adres, postcode, woonplaats 
en geslacht, zie afb. 6. 

Maak de keuze change lay out en zorg er¬ 
voor dat de sub lay-out voor de calc scrap 
op het scherm komt. Definieer nu een 
search form, zodat alle volleyballers wor¬ 
den geselecteerd. Maak hiervan een 
calc/text scrap met de optie bui ld scrap uit 
het file menu. Copieer deze scrap naar 
een text album. Herhaal deze stappen 
voor de basketballers en de handballers, 
zie atb. 7. 

Copieer dit text album naar de GeoCalc 
diskette. Vervolgens maakt u een merge 
data file, volgens de indeling zoals deze is 
weergegeven in afb. 6. Een merge data 
file maakt u door uit het file menu de op¬ 
tie build scrap te maken en vervolgens uit 
het verschijnende dialoogvenster de keu¬ 
ze merge data file. 

Berekening van de contributie. 

Maak een GeoCalc bestand onder de 
naam “BEREKENING”. Maak de kolom 
D 22 karakters breed en de kolommen E 
t/m K ieder 7 karakters. Deel vervolgens 
de worksheet in volgens het voorbeeld 
van afbeelding 8. Nu kunt u met behulp 
van de text manager steeds gegevens op¬ 
halen van de respectievelijke leden per 
aktiviteit. Klik steeds de le cel in kolom 
A aan en middels de optie paste voegt u 
de betreffende gegevens in het respectie¬ 
velijke blok in. Met behulp van de opties 
cut en paste kunt u de kopregel van elk 
blok steeds één regel omhoog verplaat 
sen afb. 9. Dit verhoogt de leesbaarheid. 
De maanden dient u zelf in te vullen. Als¬ 
mede de gegevens die in de betreffende 
kolommen moeten worden ingevuld. Nu 
gaan we de formules invoeren. Eerst klik¬ 
ken we cel K5 aan. We vullen nu als for¬ 
mule in =sum(E5:J5) en drukken op de 
ENTER toets. Met behulp van de copy 
optie zetten we dit gegeven in een calc 
scrap. Deze formule wordt nu met behulp 


LIDNUMMER : 

HAAM : 

GEB. DATUM : 

AKTIUITEIT : 

AFDELING : 

COH 

89/6488 

Flerkje, Jan Jaap 

12-09-67 

UOLLEVBAL 

JUNIOREN 

15.90 

89/06210 

Fleikie, Maria Petra 

62-83-62 

BASKETBAL 

SENIOREN 

12.58 

39/60322 

Flipsen, Ree? 

12-67-72 

HANDBAL 

JUNIOREN 

18.00 

89/8630 

Gumbaljü, Uictor Willem 

23-05-78 

HANDBAL 

PUPILLEN 

18.88 

89/08321 

Janssen, Johan 

12-10-79 

UOLLEVBAL 

JUNIOREN 

15.00 

89/6503 

Uersenqauuj, Hendrik 

10—02—56 

BASKETBAL 

SENIOREN 

12.59 


afb. 5. namenlijst 


|U0HUMMER - [ [lïMtTV. j [AKTIUITEIT : [ |COHTPIBUTIE p/m ft. : 


LIDNUMMER 1 [ [KAAMT .] | ADRES : _j jPOSICODE : j |WÓOHPiAftfS : j 

afb. 6. 2 sub lay-outs 
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van de optie paste ingevoegt in de volgen¬ 
de cellen K6, KI3, K14, K21 en K22. 
Klik nu cel K8 aan en vul de volgende 
formule hier in =sum(K5:K6) gevolgd 
door RETURN. Copieer deze formule op 
de hiervoor beschreven wijze naar cel 
K16 en K24. Geef vervolgens de volgen¬ 
de cellen een naam middels de optie defi- 
ne name, K8 wordt BASKET, K16 wordt 
HAND en K24 wordt VOLLEY. We 
gaan nu de recapitulatie in- en uitgaven 
maken. Maak het blok A27 t/m D35 con¬ 
form afbeelding 8. Voeg de gegevens 
voor de cellen B31 t/m B33 in met behulp 
van de optie paste name. Deze gegevens 
kunnen immers steeds wijzigen. Het 
voordeel hiervan is dat deze cellen dan 
steeds mee veranderen. De gegevens voor 
de cellen C31 t/m C33 vult u met hand in. 
De formule voor cel D31 luidt =C31-B31. 
Copieer deze formule naar de cellen D32 
en D33, alsmede naar cel D35. Laat ver¬ 
volgens de kolommen B31 t/m B33 en 
C31 t/m C33 optellen. 

Overbrengen van gegevens. 

Indien u dezelfde gegevens heeft gebruikt 
als in dit voorbeeld moet u tot de conclu¬ 
sie komen dat het saldo van de handbal¬ 
lers negatief is komen te staan, enwel - 
fl. 20,00. Het totale saldo komt hiermee 
op - fl. 1,24. De penningmeester is dan 
voornemens een brief aan alle leden te 
sturen met daarin een explicatie van de fi¬ 
nanciële middelen. Hij is voornemens dit 
te doen middels een brief, aan ieder lid 
persoonlijk gericht met daarin een tweetal 
grafieken, die het een en ander verduide¬ 
lijken. Deze brief zal zijn voorzien van 
het clublogo, zoals deze eerder is gebruikt 
in GeoFile. Eerst gaan we de grafieken 
maken met behulp van de gegevens die 
GeoCalc heeft opgeleverd. Daartoe moe¬ 
ten er een tweetal textscraps gemaakt 
worden, die in een textalbum worden ge¬ 
plaatst. De eerste textscrap moet de cellen 
A31 t/m B33 bevatten en de tweede loopt 
van C31 t/m C33. De eerste scrap rena¬ 
men we in “INKOMSTEN" en de tweede 
noemen we “UITGAVEN”. Copieer dit 
textalbum naar uw GeoChart diskette en 
start GeoChart op. Lees vervolgens de 
data van de scrap “INKOMSTEN” in en 
maak daarvan een taartdiagram. Plaats als 
koptitel “inkomsten uit contributie”, zie 
afb. 9. Bewaar de grafiek middels de op¬ 
tie copy gevolgd door de optie to Ge- 



I&SS1IS1, I&iSlSü&lL fülLiLgUlM, 
Hoedemakerstraat 129 
23S1 VC Leersum 

Leersun, 20 oktober 1989 

ten < < IF GESLACHT=" HUT > ;■ Dhr. < < ELSE:> > Mevr. < < EÏÏDIF;- > 
<<AHE£S>> 

<<P0STC0DE>> << TOONFLAATS;- > 


<< ffAAtt> 


Seachte 

Hierbij hebben wij als bestuur van de sportvereniging 'JiJMF" de eer ij to¬ 
verslag te mogen presenteren Met name de inkomsten en de uitgaven per heosf. 
hieronder weergegeven in de respectievelijke grafieken. 


t het halij 
ende sport 


INKOMSTEN uit contributie 


46.2* 


ffï 


BASKETBAL 

HANDBAL 

VOLLEYBAL 


28 . 21 ; 



25 . 61 : 


Zoals u ziet in de onderstaande grafiek zijn de uitgaven van de afdeling 
inkomsten uit die betreffende sportaktiviteit. 


handbal grc 


UITGAUEN per aktiviteit 


afb. 10. brief 


BASKETBAL 

HAHDBhI 
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oWrite. De hele grafiek zal nu worden in¬ 
gekrompen, zodat deze in een GeoWrite 
document kan worden ingevoegd. Ge- 
oChart maakt er nu een photoscrap van, 
die vervolgens in het eerder gebruikte 
photoalbum copieert. Deze hebben we la¬ 
ter nodig voor de brief. Herhaal ditzelfde 
proces met de data van de “UITGA¬ 
VEN”. Als u alles goed heeft gedaan be¬ 
vat uw photoalbum tenminste drie pho- 
to’s. De zojuist gemaakte grafieken en het 
clublogo, die we eerder gebruikt hebben 
in GeoFile. 

Het mergen van een brief. 

Copieer het photoalbum naar een Ge¬ 
oWrite diskette. Zorg er eveneens voor 
dat de eerder gemaakte merge data file 
eveneens op de GeoWrite diskette wordt 
gecopieerd. Start GeoWrite op en maak 
het bestand “BRIEF” aan. Copieer nu 
eerst het clublogo in de brief, deze moet 
zoveel mogelijk links geplaats zijn. Dit 
bereikt u door de rechterkantlijn meer 
naar links te verplaatsen. Vervolgens 
voert u de tekst in volgens het voorbeeld 
van afbeelding 10. Let goed op waar het 
de speciale codes betreft, die nodig zijn 
voor het mengen van de gegevens. Er zit 
een conditie in die vraagt of het GE¬ 
SLACHT een man of een vrouw betreft. 
Dit is nodig in verband met de aanhef van 
de brief. Vervolgens voert u de brief ver¬ 


der in en copieert vervolgens het eerste 
grafiek op dezelfde wijze in uw brief als 
u dat met het clublogo heeft gedaan. 
Maak op deze manier uw brief verder af. 
Het lettertype dat u gebruikt is niet zo be¬ 
langrijk, laat uw fantasie hier zijn vrije 
loop. Als uw brief klaar is laat hem dan 
één keer gewoon afdrukken. Als alle ge¬ 
gevens juist zijn kunnen we overgaan tot 
het mengen van de gegevens. Sluit uw be¬ 
stand af zodat u terugkeert naar de 
DeskTop. Controleer of de volgende be¬ 
standen op de werkdiskette voorkomen. 
Ten eerste de zojuist gemaakte brief, het 
merge datafile, de applicatie GeoMerge 
en uiteraard de juiste printerdriver. Klik 
nu tweemaal de applicatie GeoMerge aan 
en het programma vraagt u om het docu¬ 
ment dat u wilt gebruiken. Kies het file 
met de naam “BRIEF” vervolgens vraagt 
GeoMerge of u een merge bestand gaat 
gebruiken of dat u de gegevens met de 
hand invoert. Wij maken uiteraard ge¬ 
bruik van het merge bestand, dus ant¬ 
woorden met YES. In het volgende dia¬ 
loogvenster kunt u nog enkele gegevens 
invoeren die met het afdrukken te maken 
hebben. Als alles correct is ingevoerd 
kunt u op OK klikken en het afdrukken 
van een ieders persoonlijke brief begint. 
Als u het voorbeeld heeft aangehouden 
zullen er 6 brieven afgedrukt worden. Bij 
de vrouwelijke spelers zal de aanhef be¬ 


ginnen met Mevr. en bij de heren met 
Dhr., zie afb 11. 

Tot Slot. 

U heeft nu gezien dat met de in dit artikel 
gebruikte GEOS applicaties een scala aan 
mogelijkheden is te bereiken. Het enige 
dat u moet doen is er een beetje tijd en 
affort in steken. Op die manier kunnen de 
mooiste resultaten worden bereikt. Zo ge¬ 
bruik ik zelf alleen nog maar GEOS ap¬ 
plicaties voor mijn huishoudadministra- 
tie, zoals een adressenbestand, het bijhou¬ 
den van het maandverbruik aan gas en 
electriciteit. Met de andere applicaties, 
zoals GeoPublish zijn ook hele leuke din¬ 
gen te doen. In combinatie met eerder ge¬ 
publiceerde Public Domain programma’s 
kunnen dan bv. schermen van spelletjes 
worden gegrabbed, die in GeoPaint ver¬ 
der bewerkt kunnen worden. Stuur uw 
leukste toepassing gemaakt met één of 
meerdere GEOS applicaties eens op. Mis¬ 
schien vinden we uw inzending wel zo 
leuk dat we hem plaatsen. Voor nu hoop 
ik dat u een leerzame les heeft gehad in 
het werken met GEOS. 

B.V. 



SETTLE LIGHT SOFTS 


„SUPER SOUND SYSTEM” 

voor de C-64 

DAAR ZIT MUZIEK IN! 


Muziek uitprintbaar 
Uitgebreide edit mogelijkheden 
Zeer gebruikersvriendelijk 
SID-chip geheel instelbaar 
Metronoom naar keuze 

Muziek los afspeelbaar en afspeelbaar in eigen 
BASIC-programma 

Stemmen tijdens afspelen omschakelbaar 


In de betere computershop voor 


ƒ 45, — (diskette) 

incl. BTW 


Te bestellen bij: 

SALASAN 


Kwaliteits-software voor Commodore 


Postbus 5570, 1007 AN Amsterdam, Giro 5641219 
Tel. 020-203219 
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machinetaal 
cursus (7) 

B ij wijze van sinterklaassurprise 
van de machinetaalcursus is 
een 3D labyrintspel voor GEOS ge- 
list. Als rode draad -van Ariadne 
natuurlijk- hierdoorheen laat Peter 
Boncz de programmeertechnie¬ 
ken in een GEOS omgeving lopen. 
In deze aflevering aandacht voor 
onder andere de graphicsstring. 

Om het tekort aan Public Domain soft¬ 
ware voor GEOS wat te lenigen, ben ik 
onlangs maar weer achter de C-64 gaan 
zitten^Hij stond er een beetje verlaten en 
stoffig bij, maar het uiteindelijke produkt, 
toen ik hem met vierkante ogen waarin 
een tollende blik scheen weer alleenliet, 
mag er volgens mij best zijn. Dit produkt 
is het Labyrint-spel, zoals ik hierboven al 
memoreerde. Het geheel is gehuisvest in 
maar liefst zes listings, die als het goed is 
allen geplaatst zijn. Het programma te¬ 
kent in een venster steeds een (min of 
meer) driedimensionaal gezichtspunt in 
een doolhof, en er zijn pijlen, die met de 
muis aangeklikt kunnen worden, waar¬ 
mee de speler zich kan bewegen. Dit alles 
is natuurlijk uitgevoerd in GEOS-huis- 
stijl: trekmenu's, icons en dialog boxes 
(dialoogvensters). Het geliste program¬ 
ma is niet volledig, maar het werkt wel. 
Dit wil zeggen dat bij bepaalde routines, 
bijvoorbeeld die om een kaart van het la¬ 
byrint op het scherm te brengen, nu als 
programmacode alleen een luttele RTS 
staat. De echte map-routine staat in de 
volgende aflevering van de GEOS machi¬ 
netaalcursus. Iets soortgelijks geldt voor 
de plattegrond van het labyrint: er zit nu 
een plattegrondje van 10 kamers in, de 
volgende aflevering bevat een echte, uit¬ 
dagende plattegrond van circa 220 ka¬ 
mers. 

Include 

Omdat labyrint een nogal uitgebreid pro¬ 
gramma is, heb ik in de listing gebruik ge¬ 



fig. 1 De HARDCOPY op thermisch papier 


maakt van het ’.include’ commando. Nor¬ 
maal wordt dit commando alleen gebruikt 
om aan het begin van de file de standaard 
GEOS bibliotheekfile geosSym en geos- 
Mac te importeren. Het is echter ook zelf 
door de programmeur te benutten om de 
listing wat overzichtelijker te maken. Ik 
heb bepaalde delen van het programma 
uit de hoofdlisting gehaald, en in aparte 
files gezet. Dit is gebeurd met alle tek¬ 
sten, de labyrint-kaart, en alle tabellen. 
Op de plaats in de hoofdlisting waar deze 
files met ’.include filenaam’ geïmpor¬ 
teerd worden voegt de GeoAssembler ze 
dan in. 

Menüs 

Illustratie 4 bevat de sublisting met alle 
tabellen. De tabel ’Menus’ is de tabel 
voor het menu dat constant op het scherm 
staat. Het is een horizontaal menu, dit is 
te zien aan de derde regel, daar staat 
’.byte 2’. Op deze plaats in een menu- ta¬ 
bel staat altijd het aantal vakjes van het 
menu geORd met een 0 of een 128. Nul 
betekent horizontaal en 128 vertikaal. In 
een horizontaal menu overigens, verschij¬ 
nen de vakjes van links naar rechts naast 
elkaar, in een vertikaal menu onder el¬ 
kaar. Kortom er is dus een horizontaal 
menu met twee vakjes: GeosTxt (’geos’) 
en LabyTxt ('labyrint’). Deze vakjes zijn 
allebei submenu's, dit is te zien aan ’.byte 
128'. In deze byte (na de tekstpointer) 
wijst een 0 altijd op een uitvoerroutine, en 
een 128 op een submenu. Als U zelf even 
verder kijkt, dan ziet U, dat er twee verti- 
kale submenu’s uit het hoofdmenu ont¬ 
spruiten: het 'geos'-menu met de opties 
'desk top’ en ’quicktop’, en het ’laby- 


; kaartfile , moet op dezelfde 
; disk als labyrintLst staan! 
; deze kaartfile bevat een 
; kleine kaart: 



Kaart: .byte 10,5,0,0,1(10 
.byte 255,0,9,0,2,7 
•byte 0,4,0,10,2,9 
.byte 0,0,6,3,3,9 
.byte 0,6,0,1,2,10 
.byte 4,0,0,5,3,10 
.byte 8,9,10,0,1,8 
•byte 0,0,7,0,1,7 
.byte 2,0,0,7,2,8 
.byte 7,3,1,0,1,9 


fig. 2 Kaartfile-fig.3 Tekstfile 


;tekstfile, moet op dezelfde 
; disk als labyrintLst staan! 

GeosTxt: .byte "geos",0 


DeskTopTxt: 

QuickTxt: 

DESKTOPTXT: 

QUICKTOPTXT: 

LabyTxt: 

MapTxt: 

StartTxt: 

InfoTxt: 


.byte 

desk top 

, o 

.byte 

"quicktop" 

,0 

• byte 

"DESK TOP" 

,0 

• byte 

"QUICKTOP" 

,0 

-byte 

"labyrint" 

,0 

.byte 

"map",0 


.byte 

"start",0 


.byte 

"info",0 
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7 tabelfile, moet op dezelfde disk als labyrintLst staan! 

Menus: 


.byte 0,14 

.werd MapTxt 

•word 0,67 

.byte 0 

.byte 2 

.werd MapRoutine 

.word GeosTxt 

.werd InfoTxt 

.byte 128 

•byte 0 

.WDrd GeosMenu 

.werd InfoRoutine; 

.wDrd LabyTxt 


.byte 128 


.werd LabyMenu 7 

Icons: 


.byte 4 

GeosMenu: 

.werd 10 

.byte 14,41 

.byte 10 

.werd 0,47 

.word UpData 

.byte 130 

■byte 30,81 

.werd DeskTopTxt 

.byte 3,24 

.byte 0 

.werd UpRoutine 

.word DeskTopRoutine 

.werd DownData 

.werd QuickTxt 

.byte 30,150 

.byte 0 

.byte 3,25 

.werd QuickRoutine; 

.werd DownRoutine 


.word RightData 

LabyMenu: 

•byte 33,128 

.byte 14,54 

.byte 4,21 

.werd 28,59 

.word RightRoutine 

.byte 131 

.werd LeftData 

-word StartTxt 

.byte 26,128 

.byte 0 

.byte 4,21 

.werd StartRoutine 

.werd LeftRoutine,* 

; bij het intikken nu eerst de rechterkolom, en dan wat hier 

; onder staat. 


UpData: .byte 200,0,24,0 

0,126,0,0,255,0,3,255,192,7,255,224 

.byte 31,255,248 

63,255,252,255,255,255,255,255,255 

.byte 1,36,128,1, 

36,128,1,36,128,1,36,128,1,36,128 

■byte 1,36,128,1 

36,128,1,36,128,1,36,128,1,36,128 

■byte 1,36,128,1 

36,128,1,36,128,1,36,128,1,36,128 

DownData: -byte 200,1,36,128,1,36,128,1,36,128,1,36,128,1.36,128 

•byte 1,36,128,1, 

36,128,1,36,128,1,36,128,1,36,128 

.byte 1,36,128,1, 

36,128,1,36,128,1,36,128,1,36,128 

-byte 255,255,255,255,255,255,63,255,252,31,255,248 

-byte 7,255,224,3 

,255,192,0,255,0,0,126,0,0,24,0 

RiqhtData: .byte 212,0,0,12, 

0,0', 0,14,0,0,0,15,0,0,0,15,128,0,0,15 

-byte 192,0,0,15, 

224,0,0,15,240,255,255,255,248,0,0 

-byte 15,252,255, 

255,255,254,0,0,15,255,255,255,255 

-byte 254,0,0,15, 

252,255,255,255,248,0,0,15,240,0,0 

-byte 15,224,0,0, 

15,192,0,0,15,128,0,0,15,0,0,0,14 

.byte 0 , 0 , 0 , 12,0 


LeftData: .byte 212,0,48,0, 

0,0,112,0,0,0,240,0,0,1,240,0,0,3,2 

.byte 240,0,0,7,240,0,0,15,240,0,0,31,255,255,255,63 

-byte 240,0,0,12' 

,255,255,255,255,240,0,0,127,255,255 

•byte 255,63,240,0,0,31,255,255,255,15,240,0,0,7,240,0,0 

-byte 3,240,0,0,1 

,240,0,0,0,240,0,0,0,112,0,0,0,48,0,0 

GraphTable: .word up2noa,Nup2noa.riah2noa 

•word Nrigh2nog,lef2nog,Nlef2nog 

.word uplnog,Nuplnog,righlnog 

.word Nrighlnog,leflnog,Nleflnog 

-word upkeuze,Nupkeuze,righkeuze 

.werd Nrighkeuze,lefkeuze,Nlefkeuze 

uplnog: .byte .1,45,0,163 

,2,90,0,53,3,155,0,163,2,110,0,53,0 

Nuplnoq: .byte 1,45,0,163 

,2,74,0,91,2,126,0,91,2,155,0,163 

.byte 1,74,0,91, 

2,74,0,53,1,126,0,91,2,126,0,53,0 

riqhlnoq: .byte 1,127,0,95 

,2,127,0,70,2,135,0,83,2,135,0,114,0 

Nriqhlnog: .byte 0 


leflnog: .byte 1,73,0,95, 

2,73,0,70,2,65,0,83,2,65,0,114,0 

Nleflnoq: .byte 0 


up2nog: .byte 1,45,0,163 

,2,90,0,53,1,155,0,163,2,110,0,53,0 

Nup2noq: .byte 1,45,0,163 

,2,87,0,60,2,113,0,60,2,155,0,163 

-byte 1,87,0,60,2,87,0,53,1,113,0,60,2,113,0,53,0 

nghünog: .byte 1,115.0,63 

,2,115,0,53,2,120,0,65,2,120,0,76,0 

Nriqh 2 nog: .byte 0 


lef2noq: .byte 1,85,0,63, 

2,85,0,53,2,80,0,65,2,80,0,76,0 

Nlef2nog: .byte 0 


upkeuze: .byte 1,45,0,163 

,2,90,0,53,1,155,0,163,2,110,0,53,0 

NygjSËHze: .byte 1,45,0,163 

,2,60,0,127,2,140,0,127,2,155,0,163 

.byte 1,60,0,127 

,2,60,0,53,1,340,0,127,2,140,0,53,0 

righkeuze: .byte 1,145,0,138. 2. 145.0.88.2.15*5.0.11^.0 

Nnqhkeuze: .byte 0 


lefkeuze: .byte 1,55,0,138 

,2,55,0,88,2,45,0,113,0 

Nlefkeuze: .byte 0 



.include 
psect 
word 
byte 
byte 
byte 
block 63 
byte 
byte 
byte 
word 
vrord 
word 
byte 
byte 

block 147 


labyrintHdr 

geosSym 

0 

3 

21 

(63+$80) 

$83 

APPLICATION 

SEQUENTIAL 

ProgStart 

ProgEnd 

Labyrint 

"Labyrint",0,0,0,0,0,0,0 
"Peter Boncz",0 


? Ook voor de header nodig. 
Begin van de header. 
Eerste 2 bytes altijd 0. 
Afmetingen Icon: 3 bytes 
breed, 21 puntjes hoog. 
63 bytes icondata. 

■ naar eigen smaak. 

Geos File Type USR. 
APPLICATION = 6 . 
SEQUENTIAL = 0. 
laadadres. 
eindadres. 
startadres. 

0 , 0 , 0 , 0,0 

? aanvullen naar 255 bytes 


labyrint.ink 

;voor gebruik in de GeoLinker 


.output 
.header 
. seq 
.psect 
.ramsect 

labyrintLst.rel 


labyrint ;naam van de uiteindelijke file 

labyrintHdr.rel ?naam van de headerfile 

jsequentiele filestructuur (niet VLIR) 

$0900 ;begin programmakode 

54000 ;betekenisloos, want in labyrintLst is 

7 geen .ramsect gebruikt. 

?naam van de programma-file 


fig.4 Tabelfile-fig.5 LabyrintHdr-fig.6 labyrint.ink 


labyrintLst 
;voor de GeoAssembler 

.include geosSym 
.include geosMac 


Labyrint: 

jsr Screenlnit 
LoadW r0,lcons 
jsr Dolcons 
lda ^0 

LoadW r0,Menus 
jsr DoMenu 
LoadW $3a,10 
LoadB $3c,10 

rts; 


StartRout-ine: 

LoadB direction,up 
LoadB room,! 

LoadB fase,keuzefase 
LoadB running,WAAR 
LoadB mapteller,mapviews 


;constanten 

LoadW steps,maxsteps 

up =0 

jsr Draw 

right = 1 

jmp InfoRoutine? 

down = 2 
left = 3 
keuzefase = 2 

Screenlnit: 

noglfase = 1 

LoadB dispBufferOn,192 

nog 2 fase = 0 

lda f2 

WAAR = 1 

jsr SetPattem 

FOUT = 0 

jsr iJRectangle 

maxsteps = 16 

.byte 0,199 

mapviews = 4 

.word 0,319 

maxroom = 10 

lda f 1 

.psect 

jsr SetPattem 
jsr i Rectangle 

ProgStart: 

.byte 28,182 
.word 40,160 

.include kaartfile 

jsr i Rectangle 

.include tekstfile 

.byte 72,182 

.include tabelfile 

.word 199,305 

room: 

jsr i Rectangle 

.byte 1 

•byte 20,60 

direction: 

.word 199,249 

.byte up 

jsr i Rectangle 

fase: 

.byte 20,60 

.byte keuzefase 

.word 259,309 

running: 

lda f0 

.byte FOUT 

jsr SetPattem 

mapteller: 

jsr i Rectangle 

.byte mapviews 

.byte 33,47 

steps: 

.byte 1,0 

.word 45,155 


jsr i_Rectangle 
byte 53,177 
word 45,155 
jsr i_Rectangle 
byte 77,177 
word 204,300 
sr i_Rectangle 
byte 25,55 
word 264,304 
sr i_Rectangle 
byte 25,55 
word 204,244 


listing labyrint 
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rint’-menu met de opties ’start’, ’map’ en 
’info’. 

Icons 

In dezelfde illustratie (4) staat 'Icons’,de 
icontabel. De eerste byte is een 4, wat 
erop duidt dat er vier icons zijn. Daarna 
staan resp. de X en Y coördinaat waar het 
muispijltje komt te staan na het op het 
scherm brengen van de icons. Daarna 
weer volgen de gegevens over de ge¬ 
noemde 4 icons. Eerst een pointer naar de 
data van het icon, daarna het aantal bytes 
van de x coördinaat (dus alleen x coördi¬ 
naten 0,8,16,.. zijn mogelijk), dan de y 
coördinaat, dan de breedte van het icon in 
bytes, dan de hoogte in pixels, en dan ten¬ 
slotte een uitvoerroutine voor als het icon 
aangeklikt wordt. De data van de icon- 
plaatjes is in het GEOS- gecomprimeerde 
formaat opgesteld. Dit formaat is in een 
eerder stadium van mijn artikelen al bij 
GeoPaint aan de orde gekomen (de be¬ 
ruchte GeoPaint-catcher). Het is echt een 
te lang verhaal om dat nu weer helemaal 
uit te leggen. Kort en goed komt het er op 
neer dat de eerste byte een control-byte is, 
die aangeeft hoeveel losse bytes er vol¬ 
gen. Na deze eerste control-byte volgen 
van links naar rechts, en dan van onder 
naar beneden de bytes volgens het C-64 
sprite systeem. De vier icons, waar ik het 
nu steeds over heb, zijn overigens 4 pij¬ 
len: naar boven, rechts, onder en links. 
Het resultaat is in illustratie 1 te zien, in 
het middelgrote vak rechtsonder staan on¬ 
miskenbaar de beschreven pijlen. 

Plattegrond 

Illustratie 2 bevat de kaartfile. De platte¬ 
grond die daarin staat heeft 10 kamers. Ie¬ 
dere ’.byte’ regel met daarachter 6 bytes 
stelt een kamer voor. De eerste regel be¬ 
vat de gegevens van kamer 1, de tweede 
van kamer 2, en de 10-de van kamer 10. 
De eerste byte van zo’n regel is het ka- 
memummer van de kamer boven, de 
tweede het kamernummer van de kamer 
rechts, de derde van de kamer onder, en 
de vierde van de kamer links. De laatste 
twee bytes op een regel zijn de coördina¬ 
ten van de kamer in de plattegrond. Hier¬ 
over in de volgende aflevering meer. 
Over de kamernummers nog dit: als een 
bepaalde kamer geen boven-, rechter-, 
onder- of linkerbuurman heeft dan wordt 
er een 0 neergezet. De waarde 255 heeft 
ook een speciale betekenis: dit is de uit¬ 
gang van het doolhof. Verder zijn er nog 
twee andere vaste regels: kamer 1 is de 
kamer waarin de speler aan het begin van 
het spel wordt neergezet, en kamer 2 be¬ 
vat de uitgang van het labyrint (de 255). 
Het hierboven beschreven ’labyrint-mo- 
del’ kan maximaal 254 kamers bevatten, 
want een byte heeft 256 mogelijke waar¬ 


den, waarvan er twee (de 0 en 255) voor 
andere doeleinden beschikbaar zijn. 

Suspense 

Om de nodige 'suspense’ (spanningsver- 
hogende vertraging) aan te brengen kan er 
niet in een beweging van het ene kruis¬ 
punt naar het andere gelopen worden. Dat 
moet met driemaal op een icon-pijl druk¬ 
ken. In deze driemaal klikken schuiven 
eventuele deuren steeds dichter naar de 
speler toe. Als men zich in een bepaalde 
kamer bevindt zijn er steeds drie mogen¬ 
lijkheden: 

1) er moeten nog twee stappen gedaan 
worden, en de deuren zijn nog ver weg. 
Dit heet in het programma de zg. 
’nog2fase’. 

2) er moet nog een stap gedaan worden, 
en de deuren zijn redelijk dichtbij. Dit is 
de zg. ’noglfase’ 

3) Tenslotte is er de ’keuzefase’, hier be¬ 
vindt de speler zich op een 'kruispunt’ en 
kan daadwerkelijk naar rechts of links af¬ 
slaan. 

Implicaties 

Dit fasesysteem lijkt logisch, maar heeft 
de nodige implicaties. Als men in een be¬ 
paalde kamer is, in de nog 1 fase (redelijk 
dichtbij), en men draait 180 graden, dan 
moet nu dus de vorige kamer van ver te 
zien zijn (de nog2fase). Kortom bij 180 
graden omdraaien (en niet bewegen) ver¬ 
andert men in de ’noglfase’ en de 
’nog2fase' wel van kamer! Als er in de 
keuzefase, dus op een mogelijk kruispunt 
van verbindingen gedraaid wordt, dan 
blijft men wel in dezelfde kamer. Waar 
het dus allemaal op neer komt is dat de 
rechthoeken in de tekening van illustratie 
2 overeenkomen met de keuzefases van 
de kamers, en de verbindingsstreepjes in 
tweeen gehakt dienen te worden. De 
dichtbije helft van een verbindingsstreep¬ 
je correspondeert dan met de nog 1 fase en 
de verre helft met de nog2fase. Op deze 
wijze is ook makkelijk in te zien dat ge¬ 
geven kamers A en B met een verbinding, 
de noglfase van A de nog2fase van B is 
en de noglfase van B de nog2fase van A. 

Lopen 

Voor het bewegen in het doolhof wordt 
het zogenaamde loopsysteem gehanteerd. 
Wij mensen lopen normaliter alleen naar 
voren. Willen we naar rechts, dan draaien 
we naar rechts, en lopen we weer naar vo¬ 
ren. Zo werkt het ook in labyrint. De naar 
boven wijzende pijl zorgt ervoor dat er 
een stap naar voren wordt gedaan. Voor 
de engelstaligen onder U is deze pijl van 
het commentaar ’walk’ voorzien. De pij¬ 
len naar rechts en links zorgen er respec¬ 
tievelijk voor dat er naar rechts en links 
gedraaid wordt. De pijl naar onderen ten- 


slote, heeft een complete draaiing van het 
gezichtspunt (180 graden) tot gevolg. 

Graphicsstring 

In het plaatje van illustratie 1 is ook het 
venster met de 3D-blik in het labyrint te 
zien. Het tekenen van het plaatje wordt 
gedaan met de speciale GEOS-techniek 
van de zg. graphicsstring. Dat werkt zo: 
in r0 ($0002,$0003) staat een pointer naar 
een graphicsstring. Een graphicsstring is 
een serie bytes, afgesloten met een 0. De 
bytes 1,3,5,6 en 7 hebben een speciale be¬ 
tekenis en na deze bytes kunnen eventele 
databytes volgen. Waarom byte 4 niet in 
gebruik is, dat is weer zo'n levensvraag 
waar ik het antwoord echt niet op weet. 
Als er dus met de pointer naar de string in 
r0 een jsr GraphicsString gedaan wordt, 
dan gebeurt er het volgende al naar ge¬ 
lang van de inhoud van de string: 

- .byte 1, en dan .word x .byte y: de ’pen’ 
op (x,y) wordt gezet. 

- .byte 2, en dan .word x .byte y: er wordt 
een lijn tussen de oude penpositie en de 
nieuwe, nu opgegeven, (x,y) getrokken, 
en de ’pen’ wordt naar dit tweede punt 
verplaatst. 

- .byte 3, en dan .word x .byte y: hetzelfde 
als hiervoor, alleen wordt er geen lijn, 
maar een opgevulde rechthoek getekend. 

- .byte 5, en dan .byte pattern: hiermee 
wordt het lijnpatroon veranderd. 

- .byte 6, en dan .byte string: de string 
wordt op de penpositie op het beeld gezet. 

- .byte 7, en dan .word x .byte y: hiermee 
wordt een rechthoek getekend tussen de 
oude penpositie en de nieuwe (=x,y). 

Let wel op, want het genoemde patroon 
waarmee de lijnen getekend worden is 
niet hetzelfde als het GEOS vulpatroon 
dat bijvoorbeeld bij i_Rectangle gebruikt 
wordt. Het ’lijn’patroon IS de lijn, d.w.z. 
bij een lijnpatroon van bijv. 1 worden er 
bij een horizontale lijn bytes van 1 naast 
elkaar gelegd, (d.w.z steeds 7 lege puntjes 
en 1 volle) Voor een normale lijn is dus 
patroon 255 (helemaal vol) nodig, dit is 
ook het patroon waarin standaard gete¬ 
kend wordt als er niets anders gedefini¬ 
eerd is. 

Layout 

Terug naar de layout van het plaatje. In de 
tabelfile (illustratie 4) is de GraphTable 
gedefinieerd. Deze bestaat uit een opsom¬ 
ming van pointers naar graphicsstrings. 
Er zijn 18 pointers, voor 3 fasen: 
nog2fase, noglfase en keuzefase. Bij ie¬ 
dere fase horen steeds 3 richtingen: alle 
zichtbare richtingen, namelijk up, right en 
left. Bij iedere richting tenslotte zijn er 
steeds 2 mogelijkheden: in die bepaalde 
richting wel of geen uitgang. En zoals U 
hoogstwaarschijnlijk al sinds de basis¬ 
school weet: 3*3*2=18. Nu correspon- 
I deert bijvoorbeeld ’up2nog’ met de gra- 
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jsr i_PutString 
.word 48 
.byte 45 

.byte 24, "LABYRINT", 27 
.byte " by P. Bonez",0 
jsr i_PutString 

.word 243 
.byte il3 
.byte "walk",0 
jsr i_PutStxing 
.word 243 
.byte 140 
.byte "turn",0 
jsr i_PutString 
.word 270 
.byte 34 

.byte "steps:",0 
jsr Draw 

rts; 


UpRoutine: 

lda running 
cnp j*WAAR 
bne Uplbl3 
lda fase 
cnp ^keuzefase 
bne Uplbll 
ldy ^up 

jsr Directionlnfo 
cpx ^0 
beq Uplbl2 
cpx f2 
bne UplblO 
jmp Gewonnen 
UplblO: 
sty room 

'LoadB fase,?*nog2fase 
jmp Uplbl2 
Uplbll: 

inc fase 
Uplbl2: 

jsr Draw 
Uplbl3: 
rts; 


DownRoutine: 
lda running 
cnp j*WAAR 
bne Downlb12 
lda fase 
cmp 5*keuzefase 
beq Downlbll 
ldy 5*down 
jsr Directionlnfo 
sty room 
lda fase 
cmp ^noglfase 
beq DownlblO 
LoadB fase, 7 *nog.l.fase 
jmp Downlbll 
DownlblO: 

LoadB fase,#nog2fase 
Downlbll: 

inc direction 
inc direction 
jsr Draw 
Downlbl2: 
rts; 


RightRoutine: 
lda running 
cmp ^WAAR 


beq RightlblO 
lda fase 
cmp j*keuzefase 
beq RightlblO 
inc direction 
jsr Draw 
RightlblO: 
rts; 


LeftRoutine: 

lda running 
cnp j*WAAR 
beq LeftlblO 
lda fase 
cnp ^keuzefase 
beq LeftlblO 
inc direction 
inc direction 
inc direction 
jsr Draw 
LeftlblO: 
rts; 


Draw: 

lda a6L 

lda 7*1 

adc a4L 

jsr SetPattem 

sta a4L 

jsr i Rectangle 

lda f0 

.byte 53,177 

adc a4H 

.word 45,155 

sta a4H 

LoadB dispBufferOn,64 

asl a4L 

lda 5*0 

rol a4H 

jsr SetPattem 

LoadW a5,Kaa 

jsr i Rectangle 

clc 

.byte 53,177 

lda a4L 

.word 45,155 

adc a5L 

lda fl 

sta a5L 

jsr SetPattem 

lda a4H 

LoadW a0,GraphTable 

adc a5H 

LoadB alH,0 

sta a5H 

LoadB a2L,up 

lda (a5),y 

DrawlblO: 

tay 

lda fase 

cnp f0 

clc 

beq DirlblO 

adc fase 

cmp 5*255 

adc fase 

beq Dirlbll 

sta alL 

ldx 5*1 

asl alL 

jmp Dirlbl2 

asl alL 

DirlblO: 

lda alH 

ldx 5*0 

adc alH 

jmp Dirlbl2 

adc alH 

Dirlbll: 

adc alH 

ldx 5*2 

adc alL 

Dirlbl2: 

sta alL 

rts; 

ldy a2L 


jsr Directionlnfo 


cpx ^0 

Gewonnen: 

bne Drawlbl1 

Verloren: 

inc alL 

LoadB runnin 

inc alL 

DrawSteps: 


Drawlbl1: DrawConpass: 


ldy 

alL 

rts; 

lda 

(a0),y 

DesktopRoutine: 

sta 

rOL 

QuickRoutine: 

iny 

lda 

(a0) ,y 

jsr EnterDesktop 
InfoRoutine: 

sta 

rOH 

MapRoutine: 

jsr 

| 

f 

jsr GotoFirstMenu 

inc 

alH 

rts; 

inc 

lda 

a2L 

a2L 

.ProgEnd: 


phicsstring voor een kamer in de 
nog2fase met een uitgang naar voren, en 
'Nrighkeuze’ met de graphicsstring voor 
een kamer in de keuzefase zonder een uit¬ 
gang naar rechts. Om een complete kamer 
te tekenen, dienen er altijd 3 strings ge- 
graphicsstring-d te worden: een voor up, 
een voor right en een voor left. De kamer 
die in illustratie 1 te zien is, werd dus ver¬ 
kregen door achtereenvolgens een 
Nup 1 nog, een righ 1 nog, en een lef 1 nog te 
graphicsstring-en. Dit tekenen gebeurt in 
de routine 'Draw’. 

In de volgende aflevering zal ik nog wat 
meer uitleg geven bij ’Draw’, en een an¬ 
dere belangrijke routine: 'Directionlnfo’. 
Voorzover de listing nu in het blad staat, 
kan de speler starten, en een beetje door 
het doolhof lopen. De ’quicktop’, 'info' 
en ‘map’ opties uit het hoofdmenu wer¬ 
ken nog niet. Ook het kompas en het 
'steps' venster (te zien in illustratie 1) 
staan nog buiten werking. Om het geval 
nu aan de praat te krijgen moeten aller¬ 
eerst natuurlijk al de files met Geowrite 
ingetikt worden. De files ’labyrintLst’ en 
’labyrintHdr' dienen met de GeoAssem- 
bler gecompileerd te worden. Tenslotte 
moet de file 'labyrint.ink’ door de Geo- 
linker gehaald worden. De uiteindelijke, 
werkende, file heet dan Tabyrint.ex’. 
Volgende keer ben ik terug met de rest 
van het programma! 


cmp j^down 
bne Drawlbl2 
lda 5 * left 
sta a2L 
Drawlbl2: 
lda alH 
cmp 5*3 
bne DrawlblO 
LoadB dispBufferOn,192 
jsr iJtecoverRectangle 
.byte 53,1.77 
.word 45,155 
dec steps 
lda steps 
cmp ^255 
bne Drawlbl3 
dec steps +1 
lda steps +1 
cmp 5*255 
bne Drawlbl3 
jmp Verloren 
Drawlbl3: 

jsr DrawSteps 
jsr DravCompass 
rts; 


Directionlnfo: 

sty a4L 

lda direction 

clc 

adc a4L 
and t* 3 
tay 
lda ?*0 
sta a4H 
lda room 
sta a6L 
dec a6L 
clc 

lda a6L 
adc a6L 
sta a4L 
lda ^0 
adc a4H 
sta a4H 
clc 


Peter Boncz 


DE CASSETTESPECIALIST 

A. Matthaeuslaan 19 - 3515 AN Utrecht - Tel: 030 - 731826 
Fax: 030-710334 


Diskettes prijzen excl. 18,5% BTW 

***************************************** 


Merk/Type 


10-200 

200-500 

500- 

WHITE LABEL 





51/4" 

DS/DD 

0,67 

0,65 

0,63 

3 1/2" 

NASHUA 

DS/DD 

1,90 

1,85 

1,80 

5 1/4" 

DS/DD 

1,00 

0,98 

0,92 


DS/HD 

1,90 

1,85 

1,80 

3 1/2" 

DS/DD 

2,35 

2,30 

2,25 

GOLDRING 

DS/HD 

6,25 

6,00 

5,75 

5 1/4" 

DS/DD 

1,35 

1,30 

1,25 

2,50 


DS/HD 

2,60 

2,55 

3 1/2" 

DS/DD 

2,60 

2,55 

2,50 

MAXELL 

DS/HD 

6,75 

6,40 

6,00 

5 1/4" 

DS/DD 

1,65 

1,60 

1,55 


DS/HD 

2,90 

2,85 

2,80 

3 1/2" 

DS/DD 

2,90 

2,85 

2,80 

SONY 

DS/HD 

7,00 

6,50 

6,00 

5 1/4" 

DS/DD 

1,70 

1,65 

1,60 


DS/HD 

2,90 

2,85 

2,80 

3 1/2" 

DS/DD 

2,90 

2,85 

2,80 

TDK 

DS/HD 

7,00 

6,50 

6,00 

5 1/4" 

DS/DD 

1,60 

1,55 

1,50 


DS/HD 

2,90 

2,85 

2,80 

3 1/2" 

DS/DD 

2,90 

2,85 

2,80 

DS/HD 7,00 

Bestellingen onder f. 150,00 excl. BTW 
Verzendkosten f. 10,00. 

Bel 030-731826 Fax 030-710334 

6,50 

6,00 
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Amigo harddisks 



D e voordelen van een harde 
schijf zijn wijd en zijd bekend. 
Een grote opslagcapaciteit en 
een aanmerkelijk snellere data- 
accesstijd dan bij een floppysta- 
tion maken de harddisk onmis¬ 
baar voor de power-user. Zo ook 
bij de Amiga waar grafische 
pracht en rekenkracht om een 
harde schijf roepen. 

Veel voordelen tegen een stevige prijs 
Data- en prograrnmabestanden worden 
steeds groter. Iedereen die zich het begin 
van het Commodore PET en C-64 tijd¬ 
perk nog herinnert weet dat vroeger meer¬ 
dere files op één cassettebandje pastten. 
Na enkele minuten laden kon je dan een 
aardig spelletje spelen of mooie brieven 
schrijven. Die tijden zijn nu vrijwel voor¬ 
bij. Een beetje Amiga-programma heeft 
al één of twee 3.5 inch diskettes nodig en 
dat geeft praktische laad- en opslagpro¬ 
blemen. Bovendien staat de gebruiker 
voortdurend lang te wachten op het inla¬ 
den of wegschrijven. Zelfs als er twee 
diskdrives gebruikt worden blijft het alle¬ 
maal traag en veel schijfjes wisselen. Een 
harddisk ondervangt dit probleem. Daar 
passen met gemak vele tientallen disket¬ 


tes aan informatie op en zijn programma- 
en datafiles binnen één handbereik. Het 
tweede grote voordeel van de harde schijf 
is dat de laad- en wegschrijftijden aan¬ 
merkelijk korter zijn dan bij de diskdrive 
het geval is. 

Ondanks de geboden voordelen beschikt 
nog lang niet elke Amiga- gebruiker over 
een machine met harddisk. Dit in tegen¬ 
stelling tot de IBM-compatibele PC waar 
een harde schijf eerder regel dan uitzon¬ 
dering is. Daarvoor zijn twee belangrijke 
redenen aan te voeren: 

Amiga-harddisks zijn aanmerkelijk duur¬ 
der dan hun gelijkwaardige PC-collega’s 

• Behalve bij de Amiga 2000-serie is 
er niet in een interne diskdrive voor¬ 
zien 

Het aspect “duurder” vormt voor menige 
krap gebudgetteerde hobbyist(e) een pro¬ 
bleem. Terwijl bij de IBM PC-kloon er al 
een 20 MB voor ƒ 600,- of een 40 MB 
voor ƒ 950,- model in de systeemkast gaat 
betaal je bij de Amiga voor een 20 MB 
harddisk al minimaal ƒ 1.200,-. En dat is 
lang niet mis. Waar komt dit prijsverschil 
vandaan? Een veel gehoord argument is 
het relatief kleine aantal Amiga’s in de 
wereld. Kleinere aantallen Amiga- drives 
maken de stukprijs duurder. De eerlijk¬ 


heid gebied ons echter op te merken dat 
de Amiga-harddisk in Nederland in ver¬ 
gelijking met bijvoorbeeld Duitsland be¬ 
hoorlijk duur zijn. 

Een tweede argument betreft het feit dat 
de Amiga 1000 en 500 intern geen plaats 
hebben voor een harde schijf. Dat bete¬ 
kent een extra kastje, interface en een ei¬ 
gen voeding met bijkomende meerprijs. 
Bij de Amiga 2000-familie werd daaren¬ 
tegen wel rekening gehouden met een 
harddiskcontroller en inbouwruimte voor 
een extra drive-unit of hardcard (= hard¬ 
disk op insteekkaart). 

Wat is een harddisk? 

In feite is een harde schijf niets anders 
dan een soort super- diskdrive. Het gaat 
allemaal groter en sneller. Het principe 
blijft echter hetzelfde. 

Een standaard Amiga 3.5 inch 80 tracks 
diskette is een flexibel magneetschijfje 
(de disk) binnen een stevige plastic hoes. 

( Op dit flexibele schijfje passen 880 Kilo- 
Byte (onder MS-DÖS slechts 720 KB) 
aan data. De hoeveelheid data die per 
tijdseenheid geschreven kunnen worden 
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• De draaisnelheid van het schijfje. 
Hoe harder hoe meer data er per 
tijdseenheid overgedragen kunnen 
worden. In de praktijk ligt de rotatie- 
snelheid van de harddisk tussen de 
3.000 en 4.000 toeren per minuut 

• De efficiency van de koppenbewe¬ 
gingen 

• De aard van de besturingselectronica, 
de drive- controller 

Een flexibel schijfje kan, tenzij speciaal 
geconstrueerd, niet snel draaien want dan 
vervormt het schijfoppervlak. Door bij de 
harddisk van één of meerdere metalen 
disks gebruik te maken kan er veel sneller 
gedraaid worden. Die veel hogere rotatie- 
snelheid geeft een data-opslagcapaciteit 
van vele MegaBytes (1 MB = 1.000 KB) 
en een veel hogere leesschrijfsnelheid. 

De metalen disks zijn veelal van alumini¬ 
um en bevatten een magnetische coating. 
In de coating zitten magnetiseerbare me¬ 
talen deeltjes, bindmiddel en een harder 
om het oppervlak tegen eventuele botsin¬ 
gen met de lees/schrijfkoppen te bescher¬ 
men. Als praktische eenheid worden 
doorgaans disks van 10 MB gehanteerd. 
In een harde schijf van 40 MB zitten dan 
4 metalen disks. 

Ook de constructie van de koppen en kop¬ 
penarmen geven de harddisk een groot 
snelheids- en opslagvoordeel t.o.v. de 
diskdrive. De koppen zweven zeer dicht 
boven de magnetische coating waardoor 
het magnetische lees/schrijf-proces effec¬ 
tiever (in een hogere sector- en spoor- 
dichtheid) verloopt. Speciale snelle elec- 
tromotoren van het voice-coil- of stap- 
pentype zorgen voor een effectieve bewe¬ 
ging van de koppen van track naar track. 
Deze techniek gaat heel wat verder dan de 
rudimentaire armbewegingen in de disk¬ 
drive. De koppen zelf zijn aërodynamisch 
gevormde magneetspoeltjes die zeer dicht 
boven het coatingsoppervlak jakkeren. 
Een door de vorm van de koppen gecre- 
eerd luchtkussen beschermt tegen een 
crash in de coating. 

De aandrijfmotor van de disks is een 
hoogwaardig precisie- instrument. Zelf- 
smerend, duurzaam en zeer geringe slijta¬ 
ge gevoeligheid garanderen een gemid¬ 
deld leven van circa vijf bedrijfsjaren. 

De controller zorgt voor de besturing van 
de harddisk en de protocollering van het 
datatransport. Bij de Amiga 500 en 1000 
is er sprake van een speciale Amiga-con- 
troller. Dit interface zit doorgaans in het 
drive-huis gebouwd. Bij de Amiga 2000- 
serie is er keuze uit speciale Amiga-hard- 
disks en via het bridgeboard tevens uit de 
veel goedkopere PC-drives. In het laatste 
geval krijgt het Amiga-deel een eigen 
partitie op de DOS-harddisk toebedeeld. 


Controller-typen 

Tot de taken van het harddisk-besturings- 
interface behoren: 

• Besturingsbevelen aan de on board 
electronica met electromotoren van 
de harddisk door te geven 

• Het datatransport tussen de CPU, het 
RAM en de harddisk te regelen 

In de praktijk ontvangt de controller be¬ 
sturingsbevelen van de Amiga soft- en 
hardware en vertaalt deze naar de hard¬ 
disk. De tijdens dit proces genereerde dat- 
astromen worden keurig volgens het gel¬ 
dende protocol weggeschreven of opge¬ 
haald. 

Bij de Amiga zijn momenteel twee con- 
trollertypen van belang. Als eerste de 
Standard Industrial Interface ST- 
506/412-controller, in RLL-versie OMTI 
genoemd. Momenteel een enigzins ver¬ 
ouderd, tamelijk traag (er is geen eigen 
spooradressering!) en weinig flexibel in¬ 
terface. Toch kent deze (van oorsprong) 
Seagate-standaard een groot toepassings¬ 
gebied en is goedkoop aan te maken. U 
vindt dit type met name in de voordelige 
harddiskklasse. Op één ST- 506/412-con- 
troller kunnen slechts twee harde schijven 
worden aangesloten. De foutherkenning 
bij dit controllertype laat te wensen over. 
Duurder maar sneller en veelzijdiger is de 
Small Computer System Interface 
(SCSI)-controller. Dit door het ameri- 
kaanse ANSI-commitee opgestelde 8-bits 
controller-protocol is moderner als zijn 
Seagate-collega. Het gaat om een semi- 
intelligent en vooral logisch computerin- 
terface met capaciteit voor zeven devices. 
Die devices kunnen zowel harddisks, 
printers als diskdrives zijn. Gezien de 
verscheidenheid aan devices is het nood¬ 
zakelijk dat elk apparaat zijn eigen con¬ 
troller met microprocessor en wat RAM 
aan boord heeft om optimaal met de com¬ 
puter te kunnen communiceren. Dat 
maakt het systeem zowel universeler als 
duurder. 

Alle SCSI-controllers maken gebruik van 
een vastgelegde commandoreeks, de 
Common Command Set, een een 8-bits 
databus. De commandoset verzorgt de 
standaardfuncties zoals formattering, het 
gebruik van buffers, foutherkenning en 
correctie. 

Wel/geen DMA 

Direct Memory Access is een gevleugeld 
woord bij de omschrijving van de sys- 
teemsnelheidsprestaties. DMA betekent 
niets meer of minder dat er met zo min 
mogelijk bemoeienis van de Motorola 
680X0 datablokken door de controller 
worden verplaats. Alle CPU- tijd die 
daarbij uitbespaart wordt betekent pure 


winst op de systeemtijd en maakt de Ami¬ 
ga dus sneller. 

Indien de controller de data rechtstreeks 
van de harddisk naar het RAM en visa 
versa kan verplaatsen wordt er veel op 
processor I/O- tijd bespaart. Bij de speci¬ 
ficaties van diverse harddiskmodellen is 
het echter oppassen geblazen. Vaak is het 
helemaal niet duidelijk of er nu van een 
volledige DMA-transfer tussen de SCSI- 
drive in het systeem-RAM of slechts van 
een cache-RAM sprake is. In het laatste 
geval krijgt u mindere resultaten dan bij 
een echt DMA-systeem. 

In- of extern? 

Bij de Amiga 500 en 1000 is er geen keus. 
In de systeemkast is domweg geen ruimte 
om een extra drive in te bouwen. De enige 
manier om er toch een harddisk bij te zet¬ 
ten is om deze onder of naast de Amiga te 
plaatsen. Praktisch gezien betekent dat in 
ieder geval een verbindingskabeltje en 
een netsnoer meer. Enkele externe drives 
bieden tevens de mogelijkheid tot inbouw 
van extra RAM. 

Bij de Amiga 1000 zal de voorkeur uit¬ 
gaan naar een harddisk die onder de sys¬ 
teemkast of onder de monitor past. Wie 
nog een Sidecar te pakken heeft kunnen 
krijgen kan daar natuurlijk altijd een MS- 
DOS harddisk in stoppen. 

Een Amiga 500 is eigenlijk alleen maar 
een wat dikker toetsenbord. Een voor de 
Amiga 1000 of 2000 ontworpen externe 
harddisk onder dit keyboard plaatsen is 
veelal geen gezicht of werkt onhandig. 
Over blijven een positie naast de Amiga 
500 (daarvoor zijn inmiddels diverse in- 
stijl harddisks verkrijgbaar) en een plat 
model onder de monitor. Een alternatief 
zijn de systeem ombouwkasten waarin 
meerdere drives passen en die samen met 
de 500-toetsenbordkast één attractief ge¬ 
heel vormen. 

Bij de Amiga 2000-serie is er keuze uit 
een in- of externe harddisk. In het geval 
van een intern-model kunt u nog kiezen 
uit een losse drive-unit met controllor of 
een hardcard in een uitbreidingsslot. Een 
externe drive is duurder en maakt het to¬ 
tale systeem er wat lijviger op. De echte 
power-user die meerdere harddisks via 
een SCSI-interface meerdere harddisks 
wil aansturen kan overwegen om een dri- 
ve-uitbreidingsmodule aan te schaffen. 
Een intem-alternatief kan de Golem Ami- 
ga-tower zijn waarin u vijf drives kwijt 
kunt. 

MS-DOS 

Zoals reeds eerder werd opgemerkt zijn 
harddisks voor IBM- compatibele PC’s 


Lees verder op pagina 69 
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Inzoke 

invoer 



Z onder invoer zou er geen data 
zijn. Zonder data zou een 
programma nutteloos zijn. Zonder 
een programma zou een compu¬ 
ter nutteloos zijn. Zonder een com¬ 
puter zou een computerblad nut¬ 
teloos zijn. Zie hier het nut van in¬ 
voer. 

Zoals de bovenstaande kop al doet ver¬ 
moeden, we gaan het over invoer hebben. 
Beter gezegd, we gaan het over invoer 
vanaf het toetsenbord hebben. 

Wanneer u al enigzins bekend bent in C, 
dan zult u weten dat op de Amiga op een 
aantal verschillende manieren invoer van¬ 
af het toetsenbord kan verwerken. Even 
een kleine opsomming, de eerste, invoer 
met behulp van de functie scanf(). Dit is 
niet bepaald de ideale functie daar het een 
aantal gebreken heeft. Bij het inlezen van 
getallen is de functie scanf() wel zeer 
gemakkelijk. Als tweede kennen we uit 
de standaard C bibliotheek, de functies 
getc() en getchar(). U leest hiermee één 
karakter vanaf het toetsenbord. Er is wel 
een nadeel. Wilt u, zoals met éénvoudige 
programma’s vaak is, invoer vanuit het 
DOS venster krijgen dan zult u een RE¬ 
TURN moeten geven. Dé facto betekent 
dit dus dat u niet één karakter leest maar 
twee. Het ingetypte karakter en een RE¬ 
TURN. Het is tevens zo dat de functies 
getc() en getchar() de invoer bufferen zo¬ 
dat u in principe veel meer karakters in 
kunt voeren. Op zich geen probleem zult 
u stellen. Toch wel. Denk bijvoorbeeld 
aan een invoer routine die met vaste gren¬ 
zen zit waarover niet geschreven mag 
worden. Het programma kan dit niet con¬ 
troleren dus gebeurt dit wel. 

Een derde mogelijkheid. Invoer recht¬ 
streeks van het keyboard.device of in- 
put.device. Dit is de meest doeltreffende 
en tegelijk de meest complexe manier. 
Een fout is hierbij zo maar gemaakt. Pak 
een goed boek over de devices van de 
Amiga, ga een maand zitten lezen, en ga 
vervolgens een maand experimenteren. 
Dan zult u de techniek onder de knie heb¬ 
ben. De vierde mogelijkheid is door ge¬ 
bruik te maken van de Gadgets. Hef is 
mogelijk een string gadget te openen en 


hiermee stringinvoer te verkrijgen. Dit is 
absoluut de meest nette manier, de abso¬ 
lute ’Amiga way’ en tegelijk de meest 
programmeur geestdodende oplossing. 
Perfect voor snelle invoer en zonder meer 
goed ogend op het beeldscherm. Toch 
willen we het onszelf ook weer niet zo ge¬ 
makkelijk maken. De vijfde en tevens 
laatste oplossing. Lees de invoer met be¬ 
hulp van de Message Ports uit het actuele 
window. Deze laatste methode gaan we in 
dit artikel volgen, vanwege de niet al te 
moeilijke manier om karakters in te lezen 
en toch houden we voldoende eigen 
programmatische (geen bestaand Neder¬ 
lands, we weten het!) controle over de in- 
voerroutine. 

Invoer uit een window 

Elk window beschikt over een faciliteit 
die IDCMP genoemd wordt. Deze afkor¬ 
ting staat voor Intuition Direct 
Communication Port. Een IDCMP ver¬ 
werkt en filtert gegevens van een aantal 
devices waaronder het input.device die op 
zijn beurt gegevens krijgt vanuit het key¬ 
board.device. Door nu een bepaalde 
IDCMP flag te zetten kan men kiezen tus¬ 
sen ’rauwe’ toetsenbord (=RAWKEY) 
invoer of ASCII (=VANILLAKEY) in¬ 
voer. Wat doet RAWKEY? Deze levert, 
zoals we al gezegd hebben, de ruwe, on¬ 
bewerkte toetsenbord codes aan. Dit zijn 
dus nog geen ASCII codes. Het voordeel 
van RAWKEY is, dat u van alle toetsen 
een andere code terugkrijgt. Lees de 
toetscode uit het element ’Code’ van de 
structure IntuiMessage. Om te controle¬ 
ren of één van de shift-, control- of alt- 


toetsen is ingedrukt dient u het element 
’Qualifier’ te controleren. Deze code 
dient u daarna nog om te zetten naar een 
ASCII code. 

Gemakkelijker is de optie VANILLA- 
KEY. Deze levert rechtstreekse ASCII 
codes aan. Er zijn hier echter wel een aan¬ 
tal nadelen aan verbonden. De cursor 
toetsen worden niet uitgelezen, de 
functietoetsen worden overgeslagen en de 
toetsen van het numerieke toetsenbord 
zijn niet verschillend van hun tegenhan¬ 
gers van het alfanumerieke toetsenbord. 
De opgeleverde ASCII codes zijn bij 
VANILLAKEY afhankelijk van het met 
setmap gekozen toetsenbord configuratie. 
Hoe kies je nu de instelling RAWKEY of 
VANILLAKEY. Ook hier zijn weer twee 
manieren voor. Ten eerste kun je de optie 
meegeven als je het window zelf opent. 
Vul RAWKEY of VANILLAKEY in het 
element TDCMPFlags’ van de New- 
Window structuur in, en de mogelijkheid 
is daar. 

Als het window al geopend is dan is er 
een tweede manier om de IDCMP 
instellingen . te veranderen. Gebruik de 
functie ModifylDCMPf). Modify- 
IDCMPO kent twee parameters; 
ModifyIDCMP(pointer naar een wind- 
ow,de nieuwe flags). Wilt u bijvoorbeeld 
alleen de mogelijkheid VANILLAKEY 
toevoegen, dan zult u de originele flags 
van het window moeten OR’en met de 
nieuwe flags. Een voorbeeld; 

flags=MijnWindow->IDCMPFIags; 

ModifyIDCMP(MijnWindow,flags|VANILL 

AKEY); 
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Het window zal nu klaar staan om gege¬ 
vens in te lezen vanaf het toetsenbord. 
Het geeft hierbij ASCII tekens terug. 

Hoe de toetsen te lezen? 

Zoals we al eerder vermeld hebben ko¬ 
men de toetsengegevens terecht in een 
structure genaamd ’IntuiMessage’. Dit 
gebeurt echter niet vanzelf. U dient hier¬ 
voor wel een functie aan te roepen die de 
IntuiMessage structuur opvult met de 
data. Deze functie heet GetMsg(). U geeft 
als parameter de pointer naar de UserPort 
van het huidige window mee op. Bijvoor¬ 
beeld; 

TestMelding=(struct IntuiMessage *) 
GetMsg(TestWindow->UserPort); 

Hierbij komen de gegevens terecht in de 
variabele TestMelding welke van het type 
’struct IntuiMessage’ is. Er bestaat echter 
wel een voorwaarde, de melding moet 
weer geretourneerd worden met behulp 
van de functie ReplyMsg(). Als parame¬ 
ter gaat hierbij mee, de pointer naar de In¬ 
tuiMessage structuur. Even terug naar het 
bovenstaande voorbeeld. Het voorbeeld 
zou dan herschreven moeten worden 
naar; 

TestMeIding=(struct IntuiMessage *) 
GetMsg(TestWindow->UserPort); 

ReplyMsgf T estMelding); 

Zou u de melding niet retourneren dan [ 
volgt onvermijdelijk een Guru-meditatie. 
Dit is nog niet voldoende. Als er geen 
toetsinvoer zou zijn, zou TestMelding 
geen data bevatten en zou dus leeg zijn. 


We moeten dus wachten tot er een toets 
ingedrukt is. Met behulp van de functie 
Wait() kunnen we de task, waarin het pro¬ 
gramma draait, laten wachten totdat een 
signaal optreed. Dit signaal is in dit voor¬ 
beeld afkomstig van het toetsenbord. Het 
voorbeeld veranderd nu weer enigzins; 

Wait(l«TestWindow->UserPort->mp_Sig 

Bit); 

Test Melding=(struct IntuiMessage *) 
ReplyMsg(TestMelding); 
Class=TestMelding->Class; 
Code=TestMelding->Code; 

De variabele Class vermeld nu uit wat 
voor, van te voren opgegeven. IDCMP 
bron de melding afkomstig is. Stel, u 
heeft ook nog gadget invoer, welke u laat 
detecteren met de optie GADGETUP. In 
het element Class zal GADGETUP ver¬ 
meld staan als u een Gadget geselecteerd 
heeft. Er is wel één uitzondering. Bij de 
Aztek compiler. Wilt u toetseninvoer 
verkrijgen met behulp van de optie VAN- 
ILLAKEY dan zult u moeten testen op 
NULL. Class bevat dan namelijk de 
waarde nul. (=NULL) 

Het programma 

Het programma is uit een aantal functies 
en procedures opgebouwd, te weten Get- 
Key(), PrintC(), NewInputO, QuitQ en 
NewStrLenO. Wat doet welke functie? 
GetKeyO leest op de hierboven bespro¬ 
ken manier het toetsenbord uit. 

PrintCO print, zoals u al vermoed, het te¬ 
ken op het beeldscherm. Het genereert 
hierbij een cursor en houd rekening met 
RETURN en BACKSPACE. 


NewInputO is het eigenlijke hoofdpro¬ 
gramma. GetKeyO en PrintCO kunnen 
niet zondermeer in een willekeurig pro¬ 
gramma gebruikt worden. Hiervoor dient 
u aan enkele voorwaarden te voldoen. U 
moet gebruik maken van de globale varia¬ 
belen IntuitionBase en GfxBase. Deze 
dienen al bekend te zijn, en de libraries 
dienen al geopend te zijn, voordat u ge¬ 
bruik maakt van GetKeyO en PrintCO. 
NewInputO opent deze libraries als het 
nodig is, reserveert geheugenruimte en 
roept de diverse ondergeschikte functies 
aan. 

Quit() is een zeer simpele beeindigings- 
routine. Het print een boodschap af en 
geeft een waarde voor DOS af. Als er een 
fout optreed dan zal dit 5 (=WARN) zijn. 
NewStrLenO is een extraatje daar de nor¬ 
male functies om de stringlengte te bepa¬ 
len niet gebruikt kunnen worden. Het be¬ 
rekent de lengte van een in een geheugen- 
deel geplaatste string. 

Parameters van NewInputO 

NewInputO vereist 6 parameters. Hoe ziet 
NewInputO eruit? 

NewInput(Opslag,x,y,Length,Color,Tekst, 
BackGround) 

De eerste parameter genaamd Opslag. 
Hier dient u een adres naar een door uzelf 
gecreërde bufferlocatie in te vullen. 
Bijvoorbeeld, 

UBYTE *MijnBuffer; 

Newlnput(MijnBuffer,.... 

U mag ook het geheugen reserveren met 
AllocMemO, het principe blijft ook in dat 
geval ongewijzigd. 

De tweede en derde parameter zijn x en y 
locatie. Houd hierbij wel in gedachte dat 
het hier gaat om karakterlocaties. De x 
waarden liggen bij lage resolutie tussen 0 
en 39 en bij hoge resolutie tussen 0 en 79. 
De y waarden liggen bij non-interlace tus¬ 
sen 0 en 24. Bij overscan kunt u er nog 2 
bij op tellen. Bij interlace liggen de waar¬ 
den tussen 0 en 48. 

De volgende. Parameter nummer vier. 
Hier moet u het aantal tekens, dat u in wilt 
voeren, invullen. Het resultaat op het 
scherm zal dan zijn dat er, afhankelijk van 
het hier ingevulde getal, een aantal Back¬ 
Ground tekens afgedrukt worden. 

De vijfde parameter, Color, moet een in¬ 
teger waarde bevatten welke de kleur 
aangeeft waarin u de uitvoer geschreven 
wilt hebben. In DOS heeft u alleen de 
keuze uit 0,1,2 en 3. De één na laatste pa¬ 
rameter, Tekst, moet een pointer naar een 
startstring bevatten. Wilt u geen string 
dan dient u hier NULL in te vullen. Deze 
startstring zal voor de invoerregel geprint 
worden. 


64 


Commodore Info 8/89 


Amiga 


De laatste parameter. Van oorsprong had¬ 
den we de routine zo geschreven dat deze 
alleen punten kon afprinten als u de 
BACKSPACE toets indrukte. Nu kunt u 
elk karakter wat u wilt zien hier specifice¬ 
ren inclusief een SPATIE. 

Newlnput() heeft geen globale variabelen 
of vreemde functies nodig die u zelf op¬ 
moet geven. Dit in tegenstelling tot Get- 
Key() en PrintC(). U kunt NewInputO dus 
vanuit elke willekeurige routine oproe¬ 
pen. GetKeyO verondersteld dat de ’intui- 
tion.library’ en de ’graphics.library' geo¬ 
pend zijn. Dit geldt ook voor PrintC(). 

Parameters van NewStrLen(d) 

Dit is een zeer korte functie. Het heeft één 
parameter nodig, te weten de pointer naar 
de buffer waar de tekststring opgeslagen 
is. Het geeft dan een integer waarde terug 
welke de lengte van de string aangeeft. 
Onthoud wel, DE AFSLUITENDE NUL 
WORDT NIET MEEGEREKEND! 

NewInputO in libraryvorm 

De nu volgende opmerkingen zijn alleen 
van nut voor Aztek C bezitters. Lattice C 
bezitters dienen een main() body aan het 
programma te breiden. Voor Aztek C be¬ 
zitters dus. Het is mogelijk het program¬ 
ma newinput.c in een library te zetten zo¬ 
dat u alleen de library bij het linken op 
hoeft te geven. Dit lijkt lastig, doch het is 
zeer eenvoudig. 

Compile eerst het programma, cc newin¬ 
put.c +L 

Als de compiler en de assembler geweest 
zijn wacht dan even met linken. Roep nu 
de LIBRARJAN aan op de volgende wij¬ 
ze. 


Instructies bij NEWINPUT.C 


Programmanaam : newinput.c 

Programmeertaal : C 

Gebruikt programma : Aztek C v3.4 en hoger 
Opties : 

cc newinput.c +L 
lb new.lib newinput.o 
Uitvoer GEEN. 


Programma 1. NEWINPUT.C 

- 7 - 

#include "functions.h" 

#include "exec/types.h" 

#include "exec/memory.h" 

#include "graphics/gfxbase.h" 

#include "graphics/gfxmacros.h" 

#include "intuition/intuitionbase.h" 

#define RP CurScreen->RastPort 

extern struct IntuitionBase *IntuitionBase; 
extern struct GfxBase *GfxBase; 

USHORT GetKey(CurWindow) 
struct Window *CurWindow; 

{ 

USHORT Class,Code; 

register struct IntuiMessage *ml; 

struct IntuiMessage *IMes; 

Class=Code=NULL; 

Wait(lL « CurWindow->UserPort->mp_SigBit); 

/* wacht op toetsdruk 

*/ 

IMes=(struct IntuiMessage *)GetMsg(CurWindow->UserPort); 

/* haal gegevens op uit 

IDCMP */ 

ReplyMsg(IMes); /* geef de message weer door 

*/ 

Class=IMes->Class; /* Class = soort message 

*/ 

Code=IMes->Code; /* Code = de toetsencode 

*/ 


if((ml=(struct IntuiMessage 

*)GetMsg(CurWindow->UserPort))!=NULL) 

1 

while(ml-Qualifier==IEQUALIFIER_REPEAT && ml != NULL) 
{ 

ReplyMsg(ml); 
ml=(struct IntuiMessage 


lb new.lib newinput.o 

De functies zullen nu opgeslagen zijn in 
de library genaamd ’new.lib’ 

Typ vervolgens de listing ’demo.c’ in. 
Compile deze met, 

cc demo.c +L 
en link deze met, 
ln demo.o -Inew -lc32 

Nu is het uit te voeren door het comman¬ 
do ’demo’ in te typen. En voila, c’est une 
miracle! 

Zoals u ziet wordt nu de library ’new.lib’ 
meegelinkt. In deze library is onder ande¬ 
re de functie NewInputO opgeslagen. 

Het programma is voorzien van begelei¬ 
dend commentaar zodat het merendeel 
voor zichzelf spreekt. That’s all for now, 
let the listing (vrij omgezet) begin! Eek, 
het zit er weer op. Waar blijft de tijd, en 
de pegels? 

JOHAN & JOHAN. 


I 

toetsen zijn, lees deze 
*/ 

if(Class==NULL) 
return (Code); 

*/ 

else 

return(NULL); 
teruggeven */ 

1 

void PrintC(CurScreen,Key x,Key 
struct Screen *CurScreen; 

SHORT Key_x,Key_y; 
char chr; 

UBYTE *TmpA,BackGround; 

{ 


*)GetMsg(CurWindow->UserPort); 

/* als er evt. herhalings- 
dan uit. 

/* Als Class = VANILLAKEY 
/* anders een NULL 

y,chr,TmpA,BackGround) 

/* genereer een cursor met 
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behulp 

van de Blitter */ 

BltBitMap(&CurScreen->BitMap,Key_x,Key_y-6, 
SCurScreen->BitMap,Key_x,Key_y-6, 
8,8,0x30,0x01,TmpA); 

switch(chr) 

{ 

case(0x08): /* als chr 

= BACKSPACE */ 

Move(&RP,Key_x,Key_y); 

Text(&RP,SBackGround,1); 

BltBitMap(&CurScreen->BitMap,Key_x,Key_y-6, 

&CurScreen->BitMap,Key_x,Key_y-6, 

16,8,0x30,0x01,TmpA); 

break; 


if(!(TmpA=(UBYTE *) 

AllocMem(RASSIZE(640,256),MEMF_CLEAR|MEMF_CH 
IP) ) ) 

Quit(5,"Geen geheugen voor TmpA\n"); 

/* wis buffer voor teken¬ 
opslag en reset variabelen */ 
Teller=BaseX=BaseY=c=NULL; 

for(i=0;i<80;i++) 

Opslag[i]=NULL; 

/* haal pointers naar het 
actuele scherm en venster */ 
CurScreen=IntuitionBase->ActiveScreen; 
CurWindow=IntuitionBase->ActiveWindow; 
flags=CurWindow->Flags; /* haal IDCMP 

Flags.... */ 


case( 0x0d) : /* als chr 

= RETURN */ 

break; 

default: /* voer 

anders de tekst uit 

en 

verplaats de cursor */ 

Move(&RP,Key_x,Key_y); 

Text(&RP,&chr, 1); 

BltBitMap(&CurScreen->BitMap,Key_x+8,Key_y-6 


&CurScreen->BitMap,Key_x+8,Key_y-6, 
8,8,0x30,0x01,TmpA); 

break; 

} 


void 

Newlnput(Opslag,x,y,Length,Color,Tekst,BackG 
round) 

UBYTE *Opslag[80],Tekst[],BackGround; 

SHORT x,y,Length,Color; 

{ 

register int i; 

struct Screen *CurScreen; 

struct Window *CurWindow; 

ULONG Flags; 

SHORT BaseX,BaseY,c,Teller; 

UBYTE *TmpA; 

BOOL IntFlag,GfxFlag; 

IntFlag=GfxFlag=FALSE; /* controleer of 
IntuitionBase 

en GfxBase al geopend zijn */ 
if(IntuitionBase==NULL) /* zo niet, 

open ze dan */ 

{ 

if (! (IntuitionBase=(struct IntuitionBase *) 
OpenLibrary("intuition.library",0L))) 

Quit(5,"Geen intuition.library\n") ; 
IntFlag=TRUE; 

} /* gebruik IntFlag en GfxFlag 

om de libraries aan het 
eind van de sobroutine 
weer te sluiten */ 

if(GfxBase==NULL) 

{ 

if(! (GfxBase=(struct GfxBase *) 

OpenLibrary("graphics.library",0L))) 

Quit (5, "Geen graphics.library\n"); 

GfxFlag=TRUE; 

} 

/* reserveer geheugen voor 
Blitter operaties */ 


ModifylDCMP(CurWindow,flags|VANILLAKEY); 

/* ..en verander deze */ 

SetDrMd( &RP ,JAM2); 

SetBPen(&RP,0); 

SetAPen(&RP,1); /* set 

tekenmodes */ 

x*=8; 
y*=8 ; 

Move(&RP,x,y); 
if(Tekst!=NULL) 

Text(&RP,Tekst,strlen(Tekst)); /* print 

startstring */ 

x+=(8*strlen(Tekst)); 

BaseX=x; /* zet 

uitgangspositie 

achter de startstring */ 

for(i=0;iCLength;i++) /* print 

achtergrondtekens */ 

PrintC(CurScreen,(x+=8),y,BackGround,TmpA,Ba 
ckGround); 


/* genereer cursor */ 

BltBitMap(&CurScreen->BitMap,x+8,y-6, 
&CurScreen->BitMap,x+8,y-6, 

8,8,0x30,0x01,TmpA); 

x=BaseX; 

BltBitMap(&CurScreen->BitMap,x+8, y-6, 
&CurScreen->BitMap,x+8, y-6, 

8,8,0x30,0x01,TmpA); 


do { 

c=GetKey(CurWindow); 
karaktercodes op 
switch(c) 

{ 

case(0x08): 
BACKSPACE 

if (Teller>0 ) 

{ 

Opslag[Teller 

PrintC(CurScreen, x, y 

) ; 

x-=8; 

Teller—; 

) 

break; 


/* haal 

*/ 

/* if c == 

*/ 

= (UBYTE *)NULL; 

(char)c,TmpA,BackGround 


default: /* en de defaultuitvoer is.. */ 

if(Teller<Length) 

{ 

Opslag[Teller]=(UBYTE *)c; 


PrintC(CurScreen,(x+=8),y,(char)c,TmpA,BackG 
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round); 

Teller++; 

} 

break; 

} 

}while(c !=0x0d) ; /* totdat de 

RETURN ingedrukt 

wordt */ 

ModifylDCMP(CurWindow, flags);/* restore 
flags naar oude 

waarden */ 

FreeMem(TmpA,RASSIZE(640,256)); 
if(GfxFlag) 

CloseLibrary(GfxBase); 
if(IntFlag) 

CloseLibrary(IntuitionBase); 


Quit(how,why) 
int how; 
char *why; 

{ 

printf("%s",why); 
exit(how); 

} 

int NewStrLen(Opslag) 

UBYTE *Opslag[200] ; 

{ 

register int i; 
i=0 ; 

while(Opslag[++i]!=NULL); /* verhoog i 

totdat er een 

NULL aangetroffen wordt */ 
return(i-1);/* wilt u het NULL teken wel 

meegeteld hebben, zet 


} 


hier dan neer: 
return(i) ; 


*/ 


Instructies bij DEMO.C 


Programmanaam demo.c 

Programmeertaal : C 

Gebruikt programma : Aztek C v3.4 en hoger 
Opties : 

cc demo.c +L 
ln demo.o -lc32 
Uitvoer : demo 

Programma 2 DEMO.C 

- 7- 

#include "functions.h" 

#include 5 'exec/types . h" 

struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 

main() 

{ 

UBYTE *Opslag[80]; 
int i ; 

Newlnput(Opslag,3,10,30,1,"Uw antwoord; 
printf(" \n\nLengte 

—>%2d\n",NewStrLen(Opslag)) ; 
printf("Opgeslagen is —>") ; 

for(i=0;i<NewStrLen(Opslag);i++) 
printf("%c",Opslag[i]); 
printf("\n\n"); 



goedkoper dan die voor de Amiga. 
Alleen bij de Amiga 2000-familie 
bestaat de mogelijkheid om van 
een MS-DOS harddisk gebruik te 
maken. Daarvoor is dan wel een 
bridgeboard noodzakelijk en dat 
maakt het er ook weer niet goedko¬ 
per op. 

Gaat u zowel onder DOS als het 
Amiga-OS werken kies dan voor 
een harddisk van 40 MB of meer. 
Zowel MS-DOS als het Amiga-OS 
gebruiken namelijk een eigen hard- 
diskdeel (dat zich als een afzonder¬ 
lijke harddisk gedraagt) en dat ver¬ 
minderd de beschikbare opslagca¬ 
paciteit. 20 MB per Operating Sys¬ 
teem is tegenwoordig wel het min¬ 
ste dat u nodig heeft. 

De harddisk vergroot de mogelijk¬ 
heden en kracht van de Amiga aan¬ 
zienlijk. Even door de zure financi¬ 
ële appel heenbijten en u krijgt er 
veel gebruikersgemak en efficien¬ 
cy voor terug. Menige kersverse hard- 
diskbezitter heeft al verzucht: “Had ik 
het maar veel eerder gedaan”. 


Harddisk 

MB 

AMIGA 

Contrl. 

In/extern Autoboot DMA 

Prijs¬ 

indicatie 

fabrikant 

Combitec HD 40 

40 

500 

OMTI5520 

Extern 

Ja 

Nee 

ƒ 1.600 

Combitec 

Supradrive 

30 

500 

SCSI 

Extern 

Ja 

Nee 

ƒ 2.000 

Supra Corp. 

- als hardcard 

30 

2000 

SCSI 

Intern 

Ja 

Nee 

ƒ 2.000 

Supra Corp. 

Impact A500 

20 

500 

SCSI 

Extern 

Ja 

Nee 

ƒ 1.700 

GVP 

System 2000 

20 

500/1000 

OMTI 

Extern 

Ja 

Nee 

ƒ 1.100 

Vortex 

Amigos-Boil 

40 

500/1000 

OMTI 

Extern 

Ja 

Nee 

ƒ 1.600 

Amigos 

X-tension 

40 

1000 

OMTI 

Extern 

Ja 

Nee 

ƒ 2.200 

Seagate 

Doublé Disk 

20 

500 

OMTI 

Extern 

Ja 

Nee 

ƒ 1.000 

Reis-ware 

Hard-Disk A590 

20 

500 

SCSI 

Extern 

Ja 

Nee 

ƒ 1.300 

Commodore 

Message AHD-20 

20 

500/1000 

OMTI 

Extern 

Ja 

Nee 

ƒ 1.500 

Message/Seagate 

Amiga Hardd-disk 

20 

500/1000 

OMTI 

Extern 

Ja 

Ja 

ƒ 1.100 

Alcomp 

Kupke HD3000 

40 

500/1000 

OMTI 

Extern 

Ja 

Nee 

ƒ 1.100 

Kupke/Golem 

A 2090A + ST506 

40 

2000 

SCSI 

Intern 

Ja 

beperkt ƒ 2.000 

Commodore 

Impact A500 

20 

500 

SCSI 

Extern 

Ja 

Nee 

ƒ 1.700 

GVP 

Impact A2000 

40 

2000 

SCSI 

Intern 

Ja 

Cache 

ƒ 2.400 

GVP 

Hardframe 

40 

2000 

SCSI 

Intern 

Ja 

Ja 

ƒ 2.400 

Microbotics 

Sttperperformance 

30 

500/1000 

OMTI 

Extern 

Ja 

Nee 

ƒ 1.250 

Weisgerber 

- als Filecard 

30 

2000 

SCSI 

Intern 

Ja 

Nee 

ƒ 1.200 

Weisgerber 

Flashcard + 20MB 

20 

2000 

SCSI 

Intern 

Ja 

Cache 

ƒ 1.200 

Expansion Techn. 

TrumpCard 20 MB 

20 

2000 

SCSI 

Intern 

Ja 

Nee 

ƒ 1.100 

Interactive Video 

Trumpcard 500 

20 

500 

SCSI 

Extern 

Ja 

Nee 

ƒ 1.400 

Interactive Video 

Escort 

32 

500/1000 

SCSI 

Extern 

Ja 

Nee 

ƒ 2.000 

Expansion Techn. 

SA 500 

40 

500 

SCSI 

Extern 

Ja 

Nee 

ƒ 3.500 

Comspec 

Fasttrak Jr 

20 

500 

SCSI 

Extern 

Ja 

Nee 

ƒ 1.400 

Xetec 

Fasttrak 

40 

500 

SCSI 

Extern 

Ja 

Ja 

ƒ 2.500 

Xetec 

SA500/Bemoulli 

20 

500 

SCSI 

Extern 

Ja 

Nee 

ƒ 4.000 

Comspec/Iomega 

Skyline CHD-AG 

20 

500/1000 

OMTI 

Extern 

Ja 

Nee 

f 950 

Skyline 

Golem FileCard 

40 

2000 

OMTI 

Intern 

Ja 

Nee 

f 1.350 

Golem 


u.s. 
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Desktopvideo op de Amigo 


Video als complete thuisstudio 



D esktopvideo is het samen met 
de computer van achter het 
bureau perfecte videoproducties 
maken. De Amiga functioneert 
daarbij als titel- of logogenerator, 
animator, special effect generator 
(SEG) of grafisch artiest. Via een 
kleine investering in hard- en soft¬ 
ware breidt u de Amiga 500, 1000 
of 2000 uit tot een complete vi¬ 
deo- of kabelkrant-studio. Doe 
daar nog eens de kwaliteit van het 
moderne VHS-systeem bij en de 
geboden mogelijkheden reiken 
net zo ver als de eigen fanta- 
sie.Desktopvideo op de Amiga- 
computer en video als complete 
thuisstudio 

Vroeger was de thuis en low- tot no-bud- 
get video een tamelijk statisch gebeuren. 
De amateur en kleine vakman kon niet 
meer dan de opgenomen videoscenes ne¬ 
tjes achter elkaar te monteren, het geluid 
mixen en met een titelgenerator wat sim¬ 
pele titeltjes maken. Wie special effects, 


wipes, paint-effecten, mozaïek beelden, 
scrollende veelkleurige titels, logotrans- 
formaties, animaties en superpositie wou 
kon diep in de beurs tasten. Een beetje 
professionele videostudio kost zo’n vijf 
jaar geleden meer dan ƒ 100.000,-. 

Toen kwam de Amiga 1000 op de markt. 
Van huis uit was deze Motorola MC 
68000 PC voorbereid voor magnifieke vi¬ 
deopresentaties. Helaas alleen in RGB en 
voor Europa nog niet in het PAL compo¬ 
siet videosysteem voor opname op home- 
recorders en (semi-) professionele VHS- 
machines. Toch werd video-potentieel 
van de Amiga al snel door onafhankelijke 
hardwareleveranciers en tal van knutse¬ 
lende pioniers ontgonnen. De eerste gen- 
locks boden niet zo’n beste beeldkwali¬ 
teit, maar het werd wel ineens mogelijk 
om Amiga beelden met bestaande of vi- 
deo-opnamen van Kamera’s te kombine- 
ren. Dit naar keuze in de voorgrond (bij¬ 
voorbeeld superpositie van titelletters) of 
in de achtergrond (live video in compu- 
ter-scenery). Ook verschenen er kwalita¬ 
tief goede PAL- generatoren om grafi¬ 
sche beelden uit de Amiga rechtstreeks 


naar de video of kabel (bij kabelkranten) 
over te spelen. 

Circa twee jaar na de introductie van de 
Amiga 1000 kwamen de eerste professio¬ 
nele genlocks voor de Amiga-familie op 
de markt. De prijzen waren eerst zeer 
hoog. Nu kost een kwaliteits genlock ge¬ 
middeld iets meer dan ƒ 2.000,- en een 
goed amateurmodel circa ƒ 1.000,-. Ook 
Commodore zelf kwam met een inbouw 
genlockkaart en speciale PAL-videokaart 
voor de Amiga 2000. 

Momenteel is er een behoorlijke keuze uit 
redelijk geprijsde videorandapparatuur 
voor de Commodore Amiga-lijn. Gen¬ 
locks, RGB- splitters, PAL-generators, 
computergestuurde montage- en SEG- 
units er komt steeds wat nieuws in Enge¬ 
land, de VS en Duitsland uit. Ook de soft¬ 
warehuizen laten zich niet onbetuigd. Er 
is ruim keuze uit diverse teken-, titel-, 
animatie- en SEG-pakketten. In de ama- 
teurvideo bent u voor minder dan 
ƒ 3.000,- compleet met hard- en software 
uitgerust. Wie meer ambieert zal op een 
gemiddelde investering van ƒ 5.000,- bo¬ 
ven op de Amiga-prijs moeten rekenen. 
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Een schijntje in de professionele studio- 
wereld! 


Zoals ik in de inleiding al aangaf is de 
kennismaking tussen de Amiga en home¬ 
video nu ongeveer vier jaar oud. Alles 
wat de Amiga 1000 toen aan video-opties 
bood was meegenomen, want de VHS vi¬ 
deo- en camrecorders konden toendertijd 
bittfer weinig. Bovendien waren de prijzen 
voor camrecorders dermate hoog dat 
slechts weinigen zich er eentje konden 
veroorloven. 

Momenteel koop je voor zo’n ƒ 2.400,- 
een prima VHSC- camrecorder die voor 
amateurdoeleinden een allezins redelijk 
beeld geeft. Low- en no-budget krijgen de 
kans om zelf goede videoproducties te 
maken. Ook de zogenaamde montagevi- 
deorecorders die perfecte beeldlassen 
maken en ook achteraf geluid en/of kom- 
mentaar kunnen toevoegen daalden bene¬ 
den de ƒ 2.000. 

Waar komt de Amiga nu in dit plaatje 
voor? De Amiga 500, 1000 en 2000 zijn 
geschikt voor het maken van (geanimeer¬ 


de) titels in meerdere kleuren, compu¬ 
ter/business graphics, animaties, special 
effects en kabelkranten. Deze videofunc- 
ties kunnen ook door andere (niet-PC) vi- 
deorandapparatuur vervult worden. De 
Amiga biedt echter de volgende voorde¬ 
len: 

• De vergelijkbare randaparatuur voor 
de Amiga is doorgaans lager ge¬ 
prijsd. Als u de Amiga al had bent u 
bij de studiobouw dus goedkoper uit. 

• De Amiga biedt TV-techniek. D.w.z. 
de Amiga kan alles produceren wat u 
aan flitsende logo’s, draaiende titels 
en geanimeerde graphics uit de kabel 
krijgt. De mogelijkheden van de mo¬ 
derne videosoftware is hier onbe- 
grenst. 

• De Amiga kan, met name in combi¬ 
natie met een MC 68020 CPU, de ef¬ 
fecten sneller en vloeiender dan an¬ 
dere animatie- apparatuur in dezelfde 
prijsklasse. 

• De Amiga biedt meer artistieke mo¬ 
gelijkheden dan conventionele video- 


effectapparatuur. O.a. 3D graphics, 
beeldtransformaties, het digitaliseren 
en creatief bewerken van beelden en 
combinatie van computergraphics 
met life video. 

Kortom, de Amiga biedt meer mogelijk¬ 
heden in dezelfde prijsklasse. Beter kost 
al gauw ƒ 10.000,- extra. 


De producenten van video-apparatuur 
m ikk en de laatste jaren meer en meer op 
de creatieve en (semi-) professionele con¬ 
sument. Die wil, verwend door de TV-ef- 
fecten, steeds meer. Daardoor krijgen de 
video- en camrecorders steeds meer com¬ 
puterachtige opties ingebouwd. Bijvoor¬ 
beeld titelgeneratoren met een geheugen 
voor meerdere pagina’s in verschillende 
fonts en kleuren blijken steeds meer stan¬ 
daard op de camrecorder te worden. Ove¬ 
rigens klopt de Amiga dit soort titelgene¬ 
ratoren met glans. Niet iedereen heeft 
echter al de Amiga-mogelijkheden nodig. 
Ook de huiskamervideorecorder krijgt 
steeds meer snufjes. Digitalisatie van vi¬ 
deobeelden maakt meerdere stilstaande 


VHS versus Super-VHS 


Er is het afgelopen jaar veel te doen geweest over Super-VHS. 
Allerlei persberichten en reklames deden voorkomen of Super- 
VHS het nieuwe Mekka van de videofilmer en -producent is, 
zodat de oude VHS-apparatuur in de krant kan. Dat is natuur¬ 
lijk allemaal wat overdreven en de consument heeft niet zo ge¬ 
reageerd als de fabrikanten verwacht hadden. Eigenlijk is dat 
ook een beetje hun eigen schuld, want Super-VHS is momen¬ 
teel nog te duur voor de kleine beurs. In kwaliteits-prijsverhou¬ 
ding met professionele video-apparatuur is Super-VHS echter 
wel een koopje! 

Hoe zit dat nu allemaal met die beeldkwaliteit? Kritische (ex- 
jsmalfilmers hadden het allang in de gaten. Die 235-250 hori¬ 
zontale beeldlijnen die de doorsnee VHS videorecorder (VCR) 
op de beeldbuis zet is nog slechter dan het kabel signaal en kan 
niet tippen aan de 8 mm positieffilm-kwaliteit. Behalve dat 
lage scheidend vermogen van de VHS-beelden laat ook de 
kleurweergave te wensen over. Gestreepte kolbertjes met een 
Moiré-effect, trillende egale kleurvlakken (met name blauw en 
rood) en kleurstrepen bij bewegende objecten stuiten de perfec¬ 
tionist tegen de borst. Bij close-ups gaat het dan allemaal nog 
wel. Bij groothoekopnamen is het eigenlijk allemaal niet veel. 
Een nog belangrijker VHS-probleem is de kopieerkwaliteit. 
Voor montage- en distributiedoeleinden dient er gekopieerd te 
worden. Er moeten altijd een möederband (eerste-generatie-ko- 
pie) en daarvan weer dochterbanden (tweede-generatieko- 
pieën) gemaakt worden. Bij VHS geeft dat zoveel kwaliteits¬ 
verlies dat derde- generatie een kwelling voor het oog en de 
kleurenziel vormen. 

Moet VHS nu naar de vuilnisbak verwezen worden? Zeker 
niet, want het systeem is qua apparatuur en banden heel betaal¬ 
baar, geeft tot de tweede-generatie-kopie een bevredigende 
kwaliteit en kan letterlijk overal afgespeeld worden. Voor de 
gewone amateurs biedt de moderne VHS-standaard voldoende 
huiskwaliteit. 


Toch was de VHS-peetvader, JVC, gevoelig voor de argumen¬ 
ten van de kritische videofilmer en low- tot no-budget profes¬ 
sional. Met in het achterhoofd dat concurrent Sony ook een 
kwaliteitsijzer in het vuur had staan introduceerde JVC vorig 
jaar de Super-VHS- standaard. Daarbij wordt gebruik gemaakt 
van twee beeldverbeterende technieken: 

• Een grotere bandbreedte. 5 MHz tegen 3,1 MHz bij ge¬ 
woon VHS biedt horizontale 400 beeldlijnen. Geen 8 mm 
smalfilm. Wel beter is de conventionele kabel-TV. 

• Het aanbieden van een apart helderheids (Y-)signaal en 
een apart chrominantie (= kleur) C-signaal in plaats van 
een gecombineerd (FBAS) signaal maakt een aanzienlijk 
betere kleurweergave mogelijk. 

De voordelen zijn drieledig: een hoger scheidend vermogen 
met meer detailscherpte (ook bij groothoekopnamen), betere 
kleurweergave en een zeer gering kopieerverlies. Het optimale 
resultaat wordt alleen bereikt als alles (kamera, [montage- ]re- 
corder en TV) van het Super-VHS-type zijn. Weergave met een 
Super-VHS VCR op een normale TV geeft ook een aardige 
verbetering van de beeldkwaliteit evenals het kopiëren van Su¬ 
per-VHS (moederhand) naar een gewone VHS-recorder voor 
de dochterkopieën. 

Aan Super-VHS kleven momenteel drie bezwaren: de relatief 
hoge prijs voor de hardware (ook die van de Amiga!) en tapes, 
de aparte Y- en C-aansluiting tegen de bij VHS gebruikelijke 
SCART- plug, en het feit dat je Super-VHS-banden alleen in 
Super-VHS- recorders kan afspelen. Omgekeerd kan VHS-tape 
wel in Super-VHS- VCRs afgespeeld worden. Low-, no-budget 
professionals en serieuze video-amateurs zullen gemakkelijk 
over de genoemde bezwaren heen stappen. De kwaliteitswinst 
is de investering meer dan waard. Ook het gebrek aan Super- 
VHS-videorandapparatuur behoeft inmiddels geen bezwaar 
meer te zijn. Tal van leveranciers bieden al gekombineerde 
VHS en Super-VHS apparatuur en speciale S-VHS- versies. 


Commodore Info 8189 


71 



Amiga 


UHS 


VHS 


1 

m 





S —UHS 







S —UHS 


■ i . . .! 







AU-SCART 


AU-SCART 


Super UHS 
aansluiting 


. 

330 

li.inenl 

4,0 

MHz 1 


normale 

UCR- 

kwaliteit 


Kabel— 

kwaliteit 



Super—UHS- 
Kwaliteit 


Het oplossend vermogen in horizontale beeldlijnen bij VHS 


beelden om één centraal bewegend beeld, 
multi-beeldweergave, paint-, pseudo so- 
larisatie en mozaiek-effecten, strobos¬ 
coop- effect, Picture in Picture (PIP) op 
de TV en superpositie van titels mogelijk. 
Sommigen modellen kunnen tevens nog 
inzoomen. 

Niettemin blijft de Amiga ook hier veel- 
zijdiger en vaak goedkoper. 

Waarom DTV? 

Wie gaat er nu aan desktopvideo begin¬ 
nen? Op deze vraag zijn verscheidene 
antwoorden mogelijk omdat er zo veel 
verschillende kategorieën gebruikers zijn. 
In de praktijk draait het om de volgende 
kategorieën videomakers: 

• De kleine professional. Makers van 
low-budget bruids- en bedrijfsrepor¬ 
tages hebben geen superprofessionele 
videostudio nodig. Toch wil de klant 
voor niet al te veel geld een leuke 
“aankleding” met titels, hier en daar 
een effectje en soms wat animaties. 
De Amiga biedt hier ruim voldoende 
mogelijkheden. 

• De Low- of no-budget AudioVisuele- 
dienst. Openbare instellingen, het on¬ 
derwijs, buurthuizen, voorlichters e.d. 
beschikken dikwijls niet over vol¬ 
doende middelen en hebben toch be¬ 
hoefte aan goed in-house videowerk. 
De Amiga houdt hier de zaken be¬ 
taalbaar en biedt in de vorm van si¬ 
mulaties of animaties interessante 
educatieve mogelijkheden. 

• De kleine kabelkrant. Zowel voor op 
de lokale kabel als in-house bulletin¬ 


boards. De Amiga doet het voor een 
fractie van de kosten. 

• Last but not least de serieuze video¬ 
amateur die op betaalbare wijze meer 
van zijn/haar producties wil maken. 
De Amiga biedt hier een voordelige 
en kwalitatief goede oplossing. 

Op grond van de voorgaande voorbeelden 
denkt u dat de Amiga niet door de “grote 
videojongens” en omroepen gebruikt 
wordt. Niets is minder waar want de logo- 
ontwerpers, aankondigingen makers, 
trucfilmers en weermannen maken volop 
gebruik van de Amiga. Wel is de Amiga 
2000 dan gekoppeld aan topklasse rand¬ 
apparatuur. 

De hardware 

De videorandapparatuur voor de Amiga- 
lijn is nogal verschillend van aard en 
veelal in ondoorzichtelijke technische 
specificaties gehuld. Commodore Info 
geeft u hier een kort overzicht van de ver¬ 
schillende type videohardware en hun 
functie. 

Een genlock is een apparaat dat het com- 
putervideosignaal met dat van een com- 
posiet-videobron (video- of camrecorder) 
kombineert tot een voor een normale vi¬ 
deorecorder geschikt uitgangssignaal. 
Dat betekent dat u de op de Amiga ge¬ 
maakte graphics, animaties, speciale ef¬ 
fecten en titelpagina’s aan bestaande of 
kameravideo- opnamen kunt toevoegen. 
Er is keuze om de Amiga-beelden in de 
voorgrond (superpositie over het onder¬ 
liggende videobeeld heen) of achtergrond 
te gebruiken. Dat kan softwarematig of 
via knoppen/regelaar op de genlock. 


Technisch gezien zijn er binnen het gen¬ 
lock twee mogelijkheden: 

• De genlock zet het RGB-signaal van 
de Amiga om in een composiet-vi- 
deosignaal en stuurt een samenge¬ 
steld signaal naar de ontvangende vi¬ 
deorecorder. De methode wordt het 
meest gebruikt en geeft een goede 
beeldkwaliteit. 

• De genlock maakt eerst van het aan¬ 
geboden composiet- videosignaal uit 
de videobron een RGB-signaal, kom¬ 
bineert dit met het Amiga RGB-sig¬ 
naal en vertaalt het gekombineerde 
RGB-signaal naar een composiet-vi- 
deosignaal voor de ontvangende 
VCR. Deze methode maakt ook digi¬ 
taal bewerken van het bronsignaal 
mogelijk. Een nadeel is een licht 
kwaliteitsverlies van het bronsignaal. 

Behalve de hierboven beschreven heeft 
een genlock nog meer functies. Elke gen¬ 
lock is in feite ook een PAL-generator, 
want er komt PAL composiet-video als 
output uit. Duurdere (semi- )professione- 
le genlocks zoals bijvoorbeeld de Video- 
comp VCG-3 bieden extra opties in de 
vorm van controleregelaars voor Rood, 
Groen, Blauw, de helderheid, kontrasten 
de beeldcontouren. Daarmee heeft u het 
eindresultaat optimaal in de hand. 
Genlocks zijn verkrijgbaar als losse kast¬ 
jes en insteekkaarten (alleen voor de 
Amiga 2000). De prijzen van genlocks 
variëren van circa ƒ 900,- tot ƒ 6.000,-. 
Alle waar naar zijn geld hoewel u zich bij 
de duurdere professionele modellen zich 
wel dient af te vragen of die extra kwali¬ 
teit en mogelijkheden ook daadwerkelijk 
lonen? Commodore zelf biedt een relatief 
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goedkope A 2301 genlock insteekkaart 
voor de Amiga 2000. 

Een PAL-generator!encoder maakt van 
het RGB Amiga videosignaal een goed 
PAL composiet-videosignaal. U kunt dan 
de Amiga graphics rechtstreeks op een vi¬ 
deorecorder opnemen of op de lokale ka¬ 
bel zetten. Ook de PAL-generatoren zijn 
er in alle soorten en prijsklassen. Eenvou¬ 
dige PAL-encoders kosten minder dan ƒ 
500,- (o.a. de eigen Commodore PAL- 
kaart voor de Amiga 2000) en bieden 
geen instelmogelijkheden. Duurdere 
(semi-) professionele modellen beschik¬ 
ken over regelaars voor Rood, Groen, 
Blauw, kontrast en helderheid. Dergelijke 
apparaten kosten tussen de ƒ 700,- en 
ƒ 2.500,-. 

Een RGB-splitter is bedoeld om het digi- 
tizen van kleurenafbeeldingen te vereen¬ 
voudigen. Bezitters van digitizers bewe¬ 
ren al dat de videokamera een kleuren il¬ 
lustratie afzonderlijk door de filters Rood, 
Groen en Blauw dient te digitaliseren. 
Dat kost tijd en de kans op beweging is 
groot. Met behulp van de RGB- splitter 
wordt het kamerasignaal in één keer om¬ 
gezet in een voor de Amiga bruikbaar 
Amiga-signaal. Bovendien leveren de in¬ 
gebouwde electronische filters een betere 
beeldkwaliteit en is het bij de meeste mo¬ 
dellen mogelijk om Rood, Groen en 
Blauw afzonderlijk bij te regelen. Een 
budget model kost ongeveer ƒ 350,-. 
PAL-generatoren en RGB-splitters wor¬ 
den steeds vaker gecombineerd tot een 
zogenaamde multiprocessor. Dit apparaat 
verricht beide functies en is veelal wat 
voordeliger dan de afzonderlijke randap- 
paraten. De gemiddelde prijs ligt tussen 
de ƒ 600,-en ƒ 1.000,-. 

De digitizer zet bestaande videobeelden 
om in voor grafische Amiga-software be¬ 
werkbare bestanden. Eenmaal in .IFF 
kunt u er het hele tekenpakket-arsenaal op 
loslaten. Een digitizer kan met een zwart¬ 
wit videokamera, camrecorder of VCR 
met perfect stilstaand beeld werken. Een 
belangrijk punt is de snelheid waarmee 
het digitaliseren gebeurd. Een bewegelijk 
object kan niet door een trage, duurt 
meerdere seconden, digitizer opgenomen 
worden tenzij u natuurlijk creatieve be- 
wegingseffecten nastreeft. Er zijn ook ap¬ 
paraten die in 1/50 seconde digitaliseren 
en daarmee ook bewegende objecten be¬ 
vriezen. De prijzen voor Amiga digitizers 
liggen tussen de ƒ 500,- en ƒ 1.000. Let 
bij aankoop op de aansluiting via de pa¬ 
rallelle poort (welke Amiga!) en welke 
grafische beeldschermmodussen de hard¬ 
en software ondersteunen. 

Enkele firma’s leveren momenteel Amiga 
gestuurde videomontage- apparatuur. De 
Amiga functioneert hierbij als een beeld 
editor die de scenevolgorde en -plaats op 
de tape onthoudt en de montagerecorder 
aanstuurt. Zijn de tijd- (de meeste pro- 


Camrecorder 



Digitizer 


Montage-VCR 


dukten zetten een tijdcode op de monta- 
geband) en volgordegegevens eenmaal 
on screen ingevoerd dan verzorgt de Ami¬ 
ga (semi- /automatisch de montage. De 
prijzen voor dit soort time-code editors 
zijn niet mis. Reken op ƒ 1.500,- tot ƒ 
2.000,-. Een eenvoudige losse hobby-edi- 
tor is vaak goedkoper. 

De videosoftware 

In de Amiga videosoftware schuilt meer 
kracht dan in vergelijkbare titelgenerator, 
animator, graphics generator en SEG be¬ 
neden de ƒ 10.000. De Amiga biedt dom¬ 
weg meer voor minder geld dan de losse 
videorandapparatuur. Dat komt omdat de 
Amiga- familie al over superieure MC 
68.000- en coprocessor- videotechniek 
beschikt en de software deze mogelijkhe¬ 
den er alleen nog even uit behoeft te ha¬ 
len. 

Er is keuze uit vijf soorten videosoftware: 

• Titelsoftware voor het maken van 
veel kleurige titels in meerdere fonts 
en kleuren, scrollende titels, titelef- 
fecten en achtergronden. De video-ti- 
telpakketten variëren van heel basis 
tot TV-kwaliteit. 

• Animatiepakketten; Animatiesoftware 
laat grafische figuren tussen een ge¬ 
geven begin- en eindsituatie vloeiend 
bewegen. De Amiga neemt het beno¬ 
digde rekenwerk voor zijn rekening 

• Paintpakketten worden gebruikt voor 
het maken van logo’s, te animeren fi¬ 
guren en achter- of voorgronden. 
Ook CAD(D)-software wordt meer 
en meer voor videodoeleinden inge¬ 
zet. 

• Videostudio- en slideshow-p&kketttn 
worden gebruikt om een reeks com- 
puterdia’s of animatiesequenties aan 
elkaar te koppelen. De Amiga runt de 
komplete show. U behoeft de presen- 


Desktopvideo op de Amiga 

tatie alleen nog maar op video over 
te nemen. 

• Montage- en Special Effect-software 
zet de Amiga in als beeldcutter, 
wipe- automaat of SEQ. Kortom pro¬ 
fessioneel video’s monteren met de 
Amiga. 

Om u een indruk van de geboden moge¬ 
lijkheden te geven een kort overzicht van 
de gangbare Amiga-videosoftware. Titel¬ 
software is er in alle maten, soorten en 
prijsklassen. Een basaal titelpakket doet 
in feite niets anders dan tekst aanmaken. 
De videoproducent geeft aan waar de 
tekst moet staan, welke kleur de letters 
met bijbehorende achtergrond hebben en 
welk lettertype er gebruikt wordt. Een al¬ 
dus gemaakt titelscherm kunt u los opne¬ 
men (PAL- output) of met behulp van een 
genlock over eerder opgenomen video¬ 
beelden heenleggen. Fletzelfde kan tegen¬ 
woordig ook met een camrecorder die 
over een ingebouwde titelgenerator en 
paginageheugen beschikt. 

Duurdere pakketten zoals TV TEXT, Vi- 
deotitler en VideoPage bieden extra op¬ 
ties zoals meerdere fonts (ook op één ti¬ 
telpagina zijn meerdere fonts toepasbaar), 
3D-, stroboscoop- en schaduw- effecten, 
het teken van standaardfiguren, beheer¬ 
sing van de lichtinval (op de titelletters) 
en shading van de achtergrond. De duur¬ 
dere titelprogramma’s vreten door hun 
mogelijkheden en dikwijls nog bijkomen¬ 
de animaties veel geheugen. Reken op 
minimaal 1 MB aan vrij RAM. De prijzen 
variëren van ƒ 200,- tot ƒ 500,-. 

De animatiepakketten zijn bedoeld om 
“tekenfilmpjes” van grafische afbeeldin¬ 
gen en ook van titels te maken. Vroeger 
moest men voor een tekenfilm elk beeldje 
afzonderlijk (of althans de verschillende 
bewegingsfasen) op sheets tekenen. De 
Amiga wil alleen weten waar de bewe¬ 
ging begint, waar deze eindigt en welke 
baan er afgelegd moet worden. Een grafi- 
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sche coprocessor doet de rest en bespaart 
u daarmee een zee van tijd. 

De meeste animatiepakketten werken met 
een tijdbalk en een script. Door de ver¬ 
schillende scenes op de gewenste plaats 
in de tijdbalk te zetten ontstaat een lopend 
beeldverhaal, het script. Zit het script een¬ 
maal in elkaar dan kan de Amiga dit als 
een komplete tekenfilm afspelen. Aan u 
de keuze of u meerdere scripts aan elkaar 
koppelt, de scripts afzonderlijk opneemt 
of hen via een genlock met life video 
kombineert. 

Animaties zitten bij de nieuwere genera¬ 
ties videosoftware veelal al standaard in¬ 
gebakken. Bijvoorbeeld DeLuxe Paint 
III, Aegis Animator (tekenpakket plus 
animator) en titelsoftware zoals ProVideo 
Plus zijn reeds van een animatiemodule 
voorzien. 

Animatiepakketten kosten tussen de 
ƒ 200,- en ƒ 400,-. 

De Paint-software valt uiteen in de gewo¬ 
ne tekenpakketten zoals DeLuxe Paint III, 
Digi Paint of Aegis Draw en zogenaamde 
CADD (Computer Aided Design en Draf- 
ting) programma’s. Paintpakketten zijn 
primair bedoeld als tekenhulpjes. Zij hel¬ 
pen de gebruiker bij het optekenen van 
standaardfiguren (vierkanten, lijnen, bo¬ 
gen, ellipsen, cirkels e.d.), arceren, het in¬ 
vullen van kleurvlakken, in perspectief 
(3D) tekenen en een aantal pakketten 
geeft ook controle over de lichtval. Paint- 
software wordt gebruikt voor het maken 
van te animeren figuren, voor/achtergron¬ 
den en logo’s. Behalve het geheel zelf te¬ 
kenen kunnen paintpakketten tevens bi- 
bliotheekplaatjes en met een videodigiti- 
zer weggeschreven grafische files inla¬ 
den. Het artistiek bewerken van gedigita¬ 
liseerde videobeelden schept een scala 
aan Special Effects-mogelijkheden. De 
meeste digitizers komen al inclusief een 
bijpassend tekenpakket van de leveran¬ 
cier. Een doorsnee paint-pakket kost tus¬ 
sen de ƒ 200,- en ƒ 350,-. 

De CADD-soft ware houdt zich meer be¬ 
zig met de technische kant van het teke¬ 
nen. In feite gaat het om een afgeleide van 
gewone CAD- programma’s zoals die in 
de werktuigbouw, architectuur en electro- 
nica gebruikt worden. Bij CADD worden 
echter alle 3 D- effecten, wireframes 
(=draadmodellen), perfecte cirkels en el¬ 
lipsen, standaardsymbolen, perspectie¬ 
ven, invul- en arceervlakken, vele nauw¬ 
keurige tekenopties en -bewerkingen in¬ 
gezet voor artwork en logo’s. Tevens ge¬ 
schikt voor het maken van sciencefiction- 
video’s. Omdat CADD-software zoals 
bijvoorbeeld Aegis Draw 2000 en Dyna- 
mic CAD aanmerkelijk meer kan dan ge¬ 
wone paintsoftware is het prijskaartje wat 
hoger. Een CAD(D)-pakket kost tussen 
de ƒ 600,- en ƒ 1.400.-. 

Videostudio- en slidesho w-soft ware heb¬ 
ben veel gemeen. Beide pakketten zijn 


bedoeld om grafische afbeeldingen en 
teksten te animeren tot een complete lo¬ 
pende voorstelling. De videostudio- pak¬ 
ketten zoals DeLuxe Video II, DeLuxe 
Productions, Video Effects 3D en Aegis 
Lights, Camera, Action zijn meer bedoeld 
voor overname op een VCR. Slideshow- 
software zoals Aegis Impact richt zich 
wat meer op stand alone Amiga dias¬ 


hows. Overigens zijn beide pakkettypen 
gewoon door elkaar te gebruiken en valt 
soms het onderscheid nauwelijks te ma¬ 
ken. 

Tot slot de videomontage- en SEG-soft- 
ware. Videomontage-pakketten worden 
doorgaans meegeleverd bij de voor de 
Amiga geschikte montage-apparatuur. 
Dit onderwerp is dermate specialistisch 


Digitizers 

Het bevriezen van videobeelden tot grafische Amiga-files is de laatste jaren in op¬ 
mars. Met het verschijnen van gunstig geprijsde videodigitizers zoals Digiview en 
de komst van krachtige tekenpakketten voor de bewerking kan de Amiga-bezitter 
alle kanten uit. Van artwork tot creatieve videotechnieken, de Amiga met digitizer 
maakt het mogelijk. 

Zoals bekend werkt consumentenvideo [(Super-)VHS en 8 mm video] met 25 beeld¬ 
jes per seconde. Het menselijk oog ziet bij deze beeldsnelheid de afzonderlijke 
beeldjes als één vloeiende beweging. Een videodigitizer pakt één of meerdere beeld¬ 
jes over elkaar heen, zet deze in het Amiga-RAM en de software maakt er al of niet 
nabewerking een .IFF-bestand van. De grafisch artiest of videomaker kunnen dit 
JFF-beeld dan later met een tekenpakket bewerken. Vele digitizers laten tijdens de 
opname (het bevriezen) ook al softwarematige bewerkingen toe. 

In principe zijn er twee digitize-mogelijkheden: 

• Het bevriezen van een stilstaand videobeeld. Dat kan door de afspelende VCR 
op pauze te zetten of een (zwartwit) videokamera te gebruiken. Een probleem 
bij de kamera vormen de bewegende onderwerpen. Het digitizen kost al gauw 
enkele seconden en een beweginkje is zo gemaakt. Daar komt nog bij dat 
zonder RGB-splitter het nemen van niet-statische objecten onmogelijk is. In 
drie fasen digitaliseren duurt domweg te lang! 

• Het nemen van een “snapshot" , de digitizer neemt een videofoto in een fractie 
van een seconde (bijvoorbeeld 1/50 seconde) zodat beweging uitgesloten is. 
De snapshot- of real-time digitizer vereist een aparte techniek en werkt prima 
met camrecorder en video-opnamekamera’s. 

We beginnen met de gewone digitizer. Dit Amiga-randapparaat is relatief goedkoop 
(tussen de ƒ 400,- en ƒ 600,-) en neemt er zoals gezegd de tijd voor. De meeste 
moderne digitizers leveren een goede beeldkwaliteit af. U kunt kiezen uit LOW- 
RES, MEDIUM- RES, HAM, (Half) Bright en Full Screen PAL (= zonder zwarte 
beeldrandjes). Bedenk wel dat bij de hogere reoluties 512 KB RAM te krap en 1 
MB al gauw te krap wordt. Beeld kwaliteit en veel kleuren vreten vrij RAM. 
Doorgaans worden de videodigitizers, al of niet via een lintkabeltje, in de parallelle 
poort (let op het Amiga-model!) gestoken. Op de digitizer zelf zit een tulp- of BNC- 
aansluiting voor de videobron. De bekendste videodigitizers in deze klasse zijn Digi 
View Gold, Deluxe View 4.0 en de Diamond. Voor een optimaal resultaat zijn in 
monochroom een zwartwit-kamera en in kleur een RGB-splitter met van een moni- 
torschakeling voorziene camrecorder aanbevolen. 

De real-time digitizer is in staat om bewegen videobeelden als een snapshot-kamera 
te bevriezen. Bij de Amiga in PAL worden er 50 halve beelden per seconde opge¬ 
tekend en de digitizer zal in de praktijk in 1/25 seconde een volledig videobeeldje 
bevriezen. De prijzen voor deze snapshooters zijn aanmerkelijk hoger dan bij de 
conventionele modellen. Als voorbeeld twee realtime-digitizers: 

• De Snapshot Professional (Diezemann, Kiel) met parallelle aansluiting, frame 
buffer met DMA, en regelaars voor kleur, helderheid en kontrast. Prijs rond de 
ƒ 900,-. Met kleuradapter circa ƒ 1.300,-. 

• De JCL Superpic is een kombinatie tussen een komplete RGB kleurdigitizer 
en een genlock. Dit apparaat wordt op de RGB- poort aangesloten (de Amiga 
monitor door verbonden) en beschikt over alle benodigde beeldregelaars. He¬ 
laas is de prijs er ook naar. Circa ƒ 1.750,- in de winkel. 

Het digitizen van videobeelden wordt steeds meer een geintegreerde DTV-toepas- 
sing. De hard- en software leveren het basismateriaal voor Artwork, logo’s en futu¬ 
ristische animaties of enerverende slideshows. Kijk bijvoorbeeld maar eens wat de 
verschillende omroepen er mee doen. 
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dat we uitleg verder aan de leveranciers 
overlaten.De S£G-software maakt werve¬ 
lende grafische videoshows van .IFF- en 
.ANIM-files. Bijvoorbeeld spins, page- 
turns, strohes en confetti. Ideaal om uw 
videoproducties een “professional touch” 
te geven. SEG-pakketten zoals Aegis 
Animatie kosten tussen de ƒ 200,- en ƒ 
300,-. 

De video-apparatuur X 

De Amiga met genlock, PAL-generator, 
digitizer en software vormt slechts de 
helft van een complete videostudio. Na¬ 
tuurlijk zijn er ook een videokamera, een 
montagerecorder en wat extra randappa¬ 
ratuur nodig. Anders kunt u de beelden al¬ 
leen op diskette vastleggen. 

Er zijn twee typen videokamera’s: 

• De opname-kamera is alleen bedoeld 
voor het opnemen en naar een losse 
videorecorder doorgeven van beel¬ 
den. Veel amateurs zullen een derge¬ 
lijke opnamekamera niet kopen, om¬ 
dat een camrecorder met ingebouwde 
VCR veel handiger is. Wel kan de 


aanschaf van een goedkope zwartwit- 
kamera voor monochrome digitizen 
in aanmerking komen. Die geven een 
beter resultaat dan de kleuren camre¬ 
corder. 

• De camrecorder is de video-opvolger 
van de oude filmkamera. Kamera en 
videorecorder zijn in één handig 
draagbaar apparaat verenigd. Er is 
keuze uit full-size VHS/Super- VHS- 
modellen, VHS/Super-VHS Compact 
modellen en 8 mm camrecorders. De 
niet Super-VHS-typen scoren wat 
minder op hun recorderdeel. Hun re¬ 
solutie ligt tussen de 235 en 250 ho¬ 
rizontale beeldlijnen. De kamera 
scoort dikwijls aanzienlijk beter, 
maar het ingebouwde recordertje 
vormt de zwakste schakel van de vi- 
deoketen. Hetzelfde geldt ook voor 
de 8 mm-typen, waarvan wel het ge¬ 
luid beter is dan gewoon VHS C. Su- 
per-VHS camrecorders, met name de 
modellen met een brede (62 mm) 
koppentrommel, scoren qua oplos- 


sendvermogen beter dan de conven¬ 
tionele TV. 

Voor het monteren van videotape zijn al¬ 
tijd twee videorecorders (VCRs) nodig. 
Knippen kan niet. Wel overschrijven van 
beelden van de ene naar de andere re¬ 
corder. Heeft u al een camrecorder dan is 
de aanschaf van een montage-VCR of het 
gebruik van de huiskamer-video voldoen¬ 
de. Die montage-VCR verdient door zijn 
exacte beeldlassen en extra geluidsmoge¬ 
lijkheden de voorkeur. Dit type apparaten 
“vreet” de te monteren scenes zo min mo¬ 
gelijk aan (gewone videorecorders wissen 
gewoon een seconde of wat uit en kwak¬ 
ken daar de volgende scene overheen!) en 
zorgt voor storingsvrije lassen. Met een 
flying erase-kop zijn ook naadloze inserts 
op een al gemonteerde tape mogelijk. Via 
de Audio-Dub kunt u achteraf nog geluid 
toevoegen en via de Audio-Mix het be¬ 
staande stereogeluid opnieuw met kom- 
mentaar of achtergrondmuziek mengen. 
Verder kunt u de Amiga natuurlijk ge¬ 
bruiken voor het creëeren van geluidsef¬ 
fecten en electronische muziekjes. 


VideoComp 

Het duitse bedrijf VideoComp is een specialist in DTV-appa- 
ratuur voor de Amiga. Er is een ruime keuze uit amateur, semi- 
professionele en professionele randapparatuur. Daarnaast heeft 
deze firma een uitgebreid DTV-softwarerepertoire. Wij be¬ 
spreken hier enkele voor de hobbyist en low-budget videopro- 
ducent interessante apparaten. 

De VCG-3P is een genlock van ware studiokwaliteit. De band¬ 
breedte is omschakelbaar tussen 7,5 en 5,5 MHZ (voor Super- 
VHS). Er zijn fading-, superimpose- en invert-opties. Voor het 
stand alone-gebruik beschikt de VCG-3P over een blackburst- 
generator. Een interne klokoscillator zorgt voor exacte syn¬ 
chronisatie en voorkomt dat het beeld bij een slecht signaal 
ineenstort. En verder zijn er regelaars voor RGB, contourkon- 
trole en helderheid. Het apparaat is geschikt voor VHS, 8mm 
en Super- VHS. 

Zoals gebruikelijk bij de meer professionele videorandappara- 
tuur is de VCG-3P genlock van een afstandbediening met ver- 
bindingskabeltje voorzien. Dat voorkomt allerlei onhandig ge¬ 
wriemel achter of naast de Amiga. U kunt nu overal comforta¬ 
bel bij, vooral als er meerdere videoapparaten tegelijkertijd be¬ 
diend moeten worden. Helaas kost al dit moois wel eventjes 
rond de ƒ 4.500,-. 

Goedkoper is de semiprofessionele VCG-3 genlock-interface 
voor de Amiga 500 en 2000. Voor rond de ƒ 2.200,- krijgt u 
een genlock die in een doorsnee videostudio niet zou misstaan. 
Er is nauwelijks signaalverlies (een probleem bij vele goedko¬ 
pere modellen) en u kunt de kleur (RGB), het kontrast, de con¬ 
touren (links en rechts), de luminantie en de fade-time regelen. 
Wat slordig vonden wij de externe voeding. Inmiddels is er ook 
nog een VCG-3/R versie leverbaar met mogelijkheid tot af- 
standsbesturing en triggering via een video-editorunit. Binnen¬ 
kort wordt ook de Super-VHS-versie van deze VCG-3 genlock 
verwacht. 

De VideoComp VCW-1 is een kwaliteits PAL-generator voor 
Amiga RGB. Op het apparaat zijn de kleuren Rood, Groen, 
Blauw, de helderheid en het kontrast afzonderlijk regelbaar. Er 
zijn twee versies waarvan het rond de ƒ 700,- kostende /AC- 


model over een interne netvoeding beschikt. Het gewone rond 
de ƒ 640,- kostende model snoept de stroom bij de Amiga weg. 
Voor informatie: VideoComp, Begerstrasse 193, 6000 Frank- 
furt 60. 



De VideoComp VCW-1 


PBC 

Achter de naam PBC gaat de duitse firma Peter Biet Compu- 
terdesign schuil. Ook dit bedrijf richt zich speciaal op Amiga 
video- apparatuur en levert tevens versnellerkaarten, digitizers 
en harddisks. 

Wie een professionele genlock voor beneden de ƒ 4.000,- zoekt 
kan terecht bij de door Peter Biet verbouwde Commodore 
A2301 genlock, de PAL-RGB-Videotoaster. Biet voegde er 
een afstandsbediening, een geintegreerde real-time digitizer, 
een geintegreerde Super-VHS editor, en verbeterde electroni¬ 
sche schakelingen aan toe. Nu kunt u ook de helderheid, het 
kontrast, de kleurverzadiging, impose, mix en triggering van 
de in de Amiga geplaatste kaart op afstand regelen. De volle¬ 
dige set kost circa 3.500 mark. Als optie is er ook nog een 
additieve keyframe stanzer. Wie alleen de genlock wil is voor 
ongever ƒ 1.100,- klaar. Jammer is dat een Super-VHS-aanslui- 
ting op de genlock zelf (vooralsnog?) ontbreekt. Wel is er een 
Super-VHS naar RGB- converter leverbaar. 
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Een lichte teleurstelling vormt altijd de 
overname van het Amiga RGB-beeld op 
standaard-VHS. De kwaliteit van het op¬ 
genomen beeld is aanmerkelijk slechter 
dan het Amiga-origineel. Het kwaliteits¬ 
verschil bij het kopiëren werd reeds uit¬ 
voerig toegelicht. Bij Super- VHS krijgt u 
een veel beter resultaat. Ook hier geldt 
dus weer alle waar naar zijn geld. Super- 
VHS is circa twee maal zo duur. De pres¬ 
taties betalen deze extra investering ech¬ 
ter vanzelf terug. 

De Amiga geeft RGB-af en Super-VHS 
werkt met gescheiden C- en Y- signalen. 
Met behulp van een RGB-Converter zijn 
Super-VHS- signalen naar het door gen- 
locks en andere Amiga video-apparatuur 
gebruikte RGB-signalen vrijwel zonder 
kwaliteits verlies te vertalen. 

Voor consumenten-video zijn er tegen¬ 
woordig ook allerlei (semi- jprofessione- 
le videocorrectors en SEGs te koop. Een 
videocorrector maakt nabewerking van 
het videosignaal mogelijk. Bijvoorbeeld 
het bijwerken van een kleurzweem, lich¬ 
ter/donkerder, het bijregelen van het kon¬ 
trast, het wat opkrikken van de scherpte, 


fade in/out en geluidsmixages. De SEGs 
verzorgen wipes, PIPs, paint, mozaiek, 
zwart-wit, reverse en geluidsmixages. 

Kabeltjes 

In de videostudio ontkomt u niet aan een 
warboel van kabeltjes. Er zijn zoveel aan¬ 
sluitingen in gebruik dat de leek al snel 
door de bomen het bos niet meer ziet. De 
meest gangbare standaard-VHS video- 
plug is de SC/lRT-stekker. Deze gekom- 
bineerde beeld & geluidstekker past zo¬ 
wel op een gewone videorecorder als de 
Amiga- videouitgang. Alleen gebruiken 
diverse videorandapparaten voor de Ami¬ 
ga zoals genlocks en digitizers weer een 
BNC-plug. Camrecorders beschikken 
doorgaans over een kwetsbare mini vi- 
deojack (10 of 12-pins) en zelden over 
een SCART-aansluiting. Dat betekent al 
twee verloopjes. Dan zijn er ook nog de 
tulppluggen voor audio-of videoaanslui- 
ting en niet te vergeten de C- en Y-aan- 
sluiting voor Super-VHS. Kunt u het nog 
volgen? 


Gelukkig kan een goedgesorteerde video- 
specialist u aan de meeste verloopjes hel¬ 
pen. Daar zit helaas een stevig prijskaart¬ 
je, reken op ƒ 40,- tot ƒ 50,-, aan vast. Bij 
meerdere verloopjes gaat dat flink in de 
prijzen lopen. In de praktijk blijken ama- 
teurkabeltjes behoorlijk kwetsbaar. Koop 
er daarom een paar extra van of schaf een 
10 Watt soldeerbout aan. Zelf kabeltjes 
aanmaken kan zeer goed lopen mits u ter¬ 
dege weet hoe zij gesolderd dienen te 
worden. Kontroleer altijd de bedradings- 
schema's anders brandt de boel door! 

De Amiga en de (semi-)professionele 
VHS-studio groeien steeds meer naar el¬ 
kaar toe. Computer en video raken gein- 
tegreerd tot één veelzijdig medium waar 
slechts de fantasie de grenzen stelt. Toe¬ 
gegeven, niet iedereen zal een videore¬ 
corder, genlock, digitizer en kamera aan 
zijn/haar Amiga hangen. De low- tot no- 
budget videoproducent en de ware video- 
hobbyist zullen de Amiga mogelijkheden 
echter best weten te ontginnen. En dat 
voor een budget waarvan u bij lange na 
geen videostudio kunt kopen. 

U.S. 


De Digisplitt is, zoals de naam al doet vermoeden, een duitse 
RGB- splitten Deze RGB-splitter beschikt over signaalverbe- 
terende circuits, regelaars voor RGB, kleur, kontrast en lumi- 
nantie plus kleurechte monitorkontrole van het bereikte resul¬ 



taat, De Digisplitt kost los ƒ 700,- en met de DigiView Gold 
digitizer rond de ƒ 1.000,-. 

Voor informatie: Peter Biet Computerdesigns, Dieterhausener- 
strasse 28, 6409 Friesenhausen. 

Lamm Computersystemen 

De duitse in Amiga DTV gespecialiseerde firma Michael 
Lamm Computersystemen is in Nederland nauwelijks bekend. 
Dat is jammer, want dit bedrijf biedt een zeer ruime keuze uit 
hobby- en (semi- Iprofessionele DTV-apparatuur. Wij zullen 
hier kort enkele randapparaten bespreken. 

De Super-VHS-versie van het Studio Genlock-Interface werd 
speciaal voor de kleine Super-VHS-studio ontworpen. Deze 
genlock beschikt over de volgende specificaties: 

° Bandbreedte 6,2 MHz tot 8,0 MHz en standaard Super- 
VHS 

° Resolutie maximaal 625 horizontale beeldlijnen 


° PAL-systeem, 4,43 MHz met kleurdraagsignaal 8 MHz 
0 Signaal-ruis-afstand, best 86 dB bij S-VHS 

° Aansluitingen BNC (standaard VHS en S-VHS), preview 
en DB-23 RGB 
° Eigen voeding 

° Geschikt voor alle Amiga-modellen 
° Eigen oscillator-circuit voor beeldkorrektie 
0 Effecten; superimpose,, inverse, verrekijker-cffect. lades 
° Ondersteunt elke grafische Amiga-modus 
° VTR beeldstabilisatieschakeling 

De prijs van deze VCG S-VHS genlock zal rond de ƒ 3.500,- 
komen te liggen. 

De oudere VHS-versie van de Studio VCG genlock kost rond 
de ƒ 2.000,- en geeft een wat mindere kwaliteit. Beter is de 
broadcast-uitvoering van rond de ƒ 3.000,- die geschikt is voor 
TV-kwaliteit. Dit apparaat heeft o.a. een 12-traps fasenregelaar 
en een Sony Sync. compatibele DSK-uitgang. 

De ML LAMM RGB-splitter is geschikt voor S-VHS en VHS. 
Er zijn regelaars voor Rood, Groen en Blauw, plus schakelaars 
voor S- VHS/VHS en Video/Amiga (voorkomt het lastige ge¬ 
wissel van videokabeltjes). 

Specificaties: 

° S-VHS t/m 8 MHz 
0 Aansluitbaar op RGB-monitor 
0 Resolutie maximaal 625 beeldlijnen horizontaal 
0 Geschikt voor kabelgebruik 
° BNC-aansIuitingen voor video 
Prijs circa ƒ 380,-. 

De Prolock-H V is een amateur-genlock-interface voor de Ami¬ 
ga 500,1000 en 2000. Deze genlock beschikt over een monitor 
RGB-aansluiting aan de voorzijde, video in/out BNC aan de 
voorzijde en regelaars voor superimpose, fade in/out en rever¬ 
se, 
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Overige specificaties: 

° Bandbreedte 6 MHz 

0 PAL-systeem 4.43 MHz met gekoppelde 8 MHz kleurdra- 
gersignaal 
0 4096 kleuren 
° VTR beeldstabilisatie 

° Blue-Box-Keying voor de Amiga-achtergrond 

Deze Prolock HV series II genlock kost met Aegis Images rond 

de ƒ 1.250,-. 

Voor informatie: Michael Lamm Computersysteme, Schön- 
bomring 14, 6078 Neu-Isenburg 2. 

Merkens E.D.V. 

E.D.V. staat voor Elektronische DatenVerarbeitung waaronder 
ook Amiga DTV valt. En daarvoor heeft Barbara Merkens vol¬ 
doende videorandapparatuur in voorraad. Als eerste de digiti- 
zers. De VD3 is een 20 ms real-time digitizer voor de Amiga 
500, 1000 en 2000. Dit handmatige model digitaliseerd in 
zwartwit en kan een grijstrap van 16 tinten aan. Via de outline- 
modus kan de gebruiker beeldpartijen van een gelijke helder¬ 
heid omranden. Lopende beelden kunnen met deze digitizer 
prima in zwartwit bevroren worden. In de duurdere VD4-ver- 
sie is een RGB-splitter ingebouwd. Stilstaande beelden kunt u 
zondermeer in RGB digitaliseren. Voor het in kleur digitalise¬ 
ren van bewegende beelden is een videorecorder met een 
RAM-geheugen voor digitale beeld-opslag nodig. Deze laatste 
truc is niet meer nodig bij de VD 2000 Amiga real-time color 
Digitizer. Behalve de kombinatie digitizer en RGB splitter is 
de VD 2000 tevens geschikt als “grafische kaart” voor de Ami¬ 
ga. Deze digitizer is geschikt voor alle grafische Amiga- rao- 
dussen, kan de data opslaan in .IFF en ruw dataformat, en kan 
zowel werken met Bit-Planes als pixels. Regelbaar zijn het 
kontrast, de helderheid, horizontale en vertikale oscillator plus 
de outline en differentbeeld-modus. Jammer is dat u voor al dit 
fraais wel eventjes 3.000 piek dient neer te tellen. 

Merkens EDV verkoopt vijf verschillende genlocks. De goed¬ 
koopste is de mini Gen voor net boven de ƒ 400,-. Deze mini 
genlock is een langwerpig kastje dat u in de RGB-poort van de 
Amiga steekt. Bezwaarlijk zijn de uitsteek naar achteren en het 
feit dat de RGB-monitor niet doorverbonden kan worden. Aan 
de andere kant komt alleen composietvideo uit de genlock. De 
beeldprestaties zijn redelijk en geschikt voor aftiteling en RGB 
naar FBAS-conversie. Het apparaatje past op alle leden van de 
Amiga-familie. 

De door Merkens geleverde AG 5 lijkt sprekend op de Rendale 
A8802 genlock. Er zijn geen uitwendige bedieningsmogelijk- 
heden en de beeldkwaliteit is redelijk tot goed. De bandbreedte 
ligt tussen 4 en 5 MHz. Ook deze genlock gaat in de Amiga 
RGB-poort. Nu kan de monitor echter wel doorverbonden wor¬ 
den. De AG 5 past op de Amiga 500, 1000 en 2000 en kost 
minder dan ƒ 1.000,-. 

De AG6 genlock is een Amiga 2000-model die perfect onder 
de systeemkast past. Deze genlock valt in C, BASIC of machi¬ 
netaal te programmeren en beschikt over 11 in/uitgangen. De 
software kan ook een beeldplaatafspeler aansturen. Inmiddels 
is de AG-7 opvolger aangekondigd, maar daar hebben we nog 
geen specificaties van. 

De Maxi-Gen is met een prijskaartje van rond de ƒ 3.000,- de 
duurste Merkens Genlock. Dit professionele externe genlock 
wordt onder of de systeemkast van de Amiga 2000 geplaatst. 
De Maxi-Gen beschikt over de volgende specificaties: 

° Bandbreedte 5,5 MHz 


0 13 in/uitgangen waaronder video-in/out, RGB-monitor out, 
RGB BNC-out, Sync-out, RGB Chromakey-out, Keyfiïï- 
out, Black-Burst-in, en Blanking-in. 

° RGB- en Video-mix 
° Broadcasting beeldkwaliteit 

° Regelaar voor o.a. Rood. Groen. Blauw, luminantie, con¬ 
touren en kontrast. 

Voor informatie en prijzen; Merkens EDV, Fuchstanzstrasse 
6A, 6231 Schwalbach. 

Genlock Magni 4005 

Wie voor rond de ƒ 4.800,- een professionele Amiga 2000- 
genlock (allen voor type B) zoekt kan bij Altycos (tel.: 079- 
510757) terecht. Daar importeert men de Magni 4005 die reeds 
door een aantal TV-stations en omroepen met vrucht gebruikt 
wordt. Wat krijgt u nu voor zo'n 5.000 gulden aan genlock in 
huis? In de eerste plaats een keurige insteekkaart voor een vrij 
Amiga 2000- slot. Natuurlijk is deze genlock geheel studiosyn- 
chroon en levert de kaart een prima composietvideo-output. 
Over de precisie en kwaliteit zal niemand te klagen hebben. In 
de praktijk kan de Magni met alle gangbare videosignalen, ook 
die van een matige kwaliteit, uit de genlock-voeten. Dat komt 
door de zeer hoogwaardige sync-generator die bijspringt waar 
het externe referentiesignaal het laat afweten! Verder zijn alle 
gangbare professionele schakelingen en regelaars aanwezig. 
Aan de achterzijde van de genlock-kaart zitten de dipswitches 
voor de keuze van de arbeidsmodus. 

De montage is eenvoudig. Het genlock-deel gaat in een vrij slot 
van de Amiga 2000 type B. De bijbehorende videokaart in het 
Amiga videoslot. Desgewenst kunt u nog een afstandsbedie¬ 
ning met o.a. schuifregelaars voor de luminantie-keying en 
traploze superimpose, schakelaars voor invert-keying automat¬ 
isch overvloeien en fading aanschaffen. Kortom, de Magni 
4005 is zijn prijs ten volle waard. Voor de amateur zal de prijs 
waarschijnlijk te hoog uitvallen. 

Overigens heeft Altycos een groot aanbod van genlocks, vi- 
deotoasters en digitizers in de prijsklasse van ƒ 500,- tot ƒ 
6000,-. Vraag om de katalogus, tel.: 079-510757. 

Commodore zelf 

Van Commodore Nederland hoor je eigenlijk niet zo veel over 
DTV voor de hobbyist op de Amiga. Dat laat men liever aan 
de eigen professionele Amiga-afdeling of in DTV gespeciali¬ 
seerde bedrijven over. Toch kunt u bij de Commodore dealer 
de hoogwaardige A 2301 en Amiga PAL-kaart bestellen. De 
prijs valt zondermeer redelijk te noemen. Jammer is dat op de 
rond de ƒ 400,- kostende genlock geen regelaars voor fading, 
RGB e.d. zitten. Daarvoor moet u. zoals in het voorgaande be¬ 
schreven, bij de duitse heer Biet zijn. 

Volgens het geruchten-circuit staat er een komplete desktopvi- 
deo- module, het DTV-systeem, voor de Amiga 500 op stapel. 
In een externe behuizing zitten de A 2301, een RGB-splitter en 
Diamond digitizer. Over de winkelprijs en introductiedatum 
was op het moment van schrijven nog niets bekend. Voor in¬ 
formatie: 020- 882222. 

Catronix 

Last but not least de nijvere nederlandse importeur en leveran¬ 
cier van Amiga-randapparatuur Catronix. Hoewel de nadruk 
niet zoals bij de duitse leveranciers, op DTV ligt verkoopt deze 
firma in deze toch leuke dingen. Bijvoorbeeld de Rendale 
A8802 genlock, een aantal digitizers en DTV-software. Voor 
informatie: 010-4507696. 


Commodore Info 8/89 


79 



Amigo 


Tabel DTV-Software 


3D Graphics 

Paint 3D-objecten 

129 

Altycos 

Aegis 3D Modeller 

3D animaties + tekenen en raytracing 

279 

Altycos 

Aegis Animator met Images 

Animatie- met paintprogramma 

399 

Altycos 

Aegis Draw 

Paint-pakket 

329 

Altycos 

Aegis Draw 2000 

CAD(D) 

679 

Altycos 

Aegis Impact 

Business Graphics presentatie 

249 

Altycos 

Animate 3D 

3D-animaties raytracing 

549 

Altycos 

Animation Effects 

Wipe, scroll en flipanimaties 

129 

Altycos 

Animation Stand 

Animatieprogramma 

129,50 

Altycos 

Broadcast Titler 

Pro-titelgenerator 

? 

Videocomp 

Caligari 

Pro-animatiepakket met raytracing 

? 

Videocomp 

Deluxe Paint II 

Paint-pakket 

249 

div. lev. 

Deluxe Paint III 

Paint- en animatiepakket 

299 

div. lev. 

Deluxe Productions 

Videopresentaties 

499 

Altycos 

Deluxe Video 

Videopresentaties 

249 

div. Lev. 

Digipaint 

Paint-pakket 

149 

Altycos 

Dynamic CAD 

CAD(D) 

1399 

Altycos 

Forms in Flight 

Animatie 3D draadmodellen 

199 

div.lev. 

Graphic Studio 

Tekenpakket, artwork 

159 

Altycos 

Lights!, Camera!, Action! 

Kompleet animatie- en presentatieprogramma 

229 

Altycos 

Logic Works 2.0 

CAD(D) 

729 

Altycos 

Master Video Page 

Titelgenerator 

440 

div. lev. 

Page Flipper 

Tekstanimaties 

129,50 

Altycos 

Photon Paint 

Paint-pakket 

249 

Altycos 

Photon Videocel animation 

Animatiepakket 

369 

Altycos 

Pro Draw 

Artwork 

529 

Altycos 

ProVideo CGI 

Videotitels Profes. 

825 

Altycos 

ProVideo Plus 

Professionele titels 

625 

Altycos 

Sculpt 3D 

3D tekenprogramma 

249 

Altycos 

Sculpt 4D 

3D tekenprogramma en 3D animatie 

1199 

Altycos 

TV Show 

Presentatieprogramma 

249 

Catronix 

TV Text 

Video-aftiteling met pro-achtergronden 

249 

Catronix 

The Caligrapher 

Calligrafische titels 

325 

Altycos 

The Director 

Videopresentatie 

179,50 

Altycos 

Turbo-Silver 

3D teken- en animatie- 

729 

Altycos 

Video Effects 3D 

3D-animaties van tekst, logo’s en grafieken 

489 

Altycos 

Video Generic Master 

Titelgenerator 

300 

Kimatek 

Video Wipe Master 

O vervloei-effecten voor 2 videobronnen. SEG. 

300 

Kimatek 

Videoscape 

Raytracing animatie 

399 

div. lev. 

Videotitler 

Titel-animatieprogramma 

299 

div.lev. 

Zuma Fonts 

Titel-fonts 

97,50 

div. lev. 
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Amiga met 68030 

Alhoewel Commodore op de Comdex 
tentoonstelling in Las Vegas nog geen 
Amiga 3000 wenste te annonceren (een 
machine die«al in 1988 in Hannover voor 
het eerste werd genoemd) werd er wel een 
Amiga 2500 met de 68030 coprocessor 
op 25 MHz gelanceerd. De 2500/30 heeft 
een mathematische comprocessor (25 
MHz 68882) en een memory manage¬ 
ment unit (68851) aan boord evenals 2 
MB 32-bits geheugen en 1 MB 16-bits 
RAM, een 3,5 inch diskdrive en 40 MB 
harddisk. De Amiga 2500/30 is volgens 
de Amerikanen te duur en vooral bedoeld 
voor de verticale markten in Europa (zo¬ 
als de video-toepassingen e.d.). 
Liefhebbers met een Amiga 2000 kunnen 
naar analogie met de 68020 van de gewo¬ 
ne A2500 met de A2630 uitbreidings¬ 
kaart hun 2000 upgraden naar de 68030. 
De ontwikkelingen voor de Amiga gaan 
volgens Amiga product manager Keith 
Masavage echter niet geheel aan de ‘ge¬ 
wone’ Amiga gebruiker voorbij omdat er 
hard wordt gewerkt aan een belangrijke 
update van het besturingssysteem. Deze 
versie wordt in de VS begin volgend jaar 
verwacht. Rond die tijd zal ook de Amiga 
3000 waarschijnlijk worden gelanceerd, 
omdat Commodore volgens Masavage in 
ieder geval wacht tot Unix System V re¬ 
lease 4 beschikbaar is, en dat zal wel in de 
eerste helft van 1990 zijn. Het zal dus wel 
de traditionele grote Commodore pers¬ 
conferentie in Hannover worden. 

De Comdex zag ook de introductie van 
nieuwe versies van de auto-booting hard¬ 
disk controllers/geheugenuitbreidings- 
kaarten A2091 en 2091 -40 


De flickerFixer 

Iedereen die het Amiga 2000 monitor- 
beeld eens nader bekeken of gefotogra¬ 
feerd heeft zal zijn opgevallen dat het 
beeld flikkert of scanlijnen vertoont. Dat 
ligt niet aan de Amiga zelf, maar aan de 
videokaart. Nu blijft het altijd de vraag in 
hoeverre zoiets echt storend is. Het men¬ 
selijk oog heeft bij de doorsnee Amiga- 
toepassingen weinig last van dat nauwe¬ 
lijks waarneembare geflikker. Bij grafi¬ 
sche, desktopvideo, desktoppublishing en 
fotografische (van het beeldscherm) toe¬ 
passingen kan de interlace-flikker wel 
storend worden. 

De AGA 2000-kaart van Micro Way ver¬ 
helpt de interlace-flikker en wordt daar¬ 
om de “flickerFixer” genoemd. Een heel 
toepasselijke naam, want met deze in¬ 


steek-videokaart krijgt u een flikkervrij 
704 x 470 pixels overscanbeeld in de 
4096 paletkleuren van de Amiga. Deze 
lust voor het grafisch oog is geschikt voor 
de populaire VGA- en Multiscan-monito- 
ren (O.a. de NEC Multisync en de Mitsu¬ 
bishi XC1429C). Natuurlijk werkt de 
AGA 200 flickerFixer met alle bestaande 
grafische Amiga-software. 

Het enige bezwaar is de stevige prijs die 
rond de ƒ 1.400,- ligt. Info: Micro Way, 
32 High ST., Kingston-Upon Thames, 
Engeland. 


Geruchtenmachine 

In een aantal buitenlandse bladen zijn de 
laatste maanden speculaties opgedoken 
over een mogelijke nieuwe Commodore 
64. Commodore baas Irving Gold zou 
hierover in een toespraak iets hebben los¬ 
gelaten. 

De Commodore 64-111 of de Commodore 
64-GS, zoals hij al in suggestieve verha¬ 
len werd genoemd, zou gebruik maken 
van de 65816 processor (16 bits op 4 
MHz) die in staat is om de commandoset 
van de 6510 van de oude C64 te verwer¬ 
ken. Daarnaast zou de nieuwe C64 een 
128 KB geheugen, betere grafische en ge¬ 
luidsmogelijkheden en een ingebouwde 
3,5 inch diskdrive hebben. De machine 
zou in de prijsklasse van 600-900 gulden 
moeten komen te liggen. Het lijkt er bijna 
op alsof iemand de geruchten voor de in¬ 
troductie van de Cl28 nog eens dunnetjes 
overdoet. Gezien de grote voorkeur voor 
Commodore Nederland voor de Amiga 
en voor het zakelijke computersegment 
lijkt een introductie van een C-64/128-11- 
IGS nauwelijks te verwachten. 


WordWriter 4 

Er is een nieuwe versie van de bekende 
tekstverwerker WordWriter voor de C64 
van softwaremaker Timeworks. Het ge¬ 
bruikersinterface is verbeterd en er zijn 
meer fonts, mini-graphics, tekst-layout en 
betere afdrukresultaten ana het program¬ 
ma toegevoegd. 

Versie 4 heeft nu 8 ingebouwde letterty¬ 
pes in groottes van 9 tot 72 punten, alle 
met 5 speciale effecten. Naast lettertypes 
zitten er in het pakket 90 mini-tekenin- 
gen. 

Naast het standaard pakket is er een uit- 
breidingspakket beschikbaar met 16 extra 
lettertypes. 


Media Line 

Niet iedereen is een grafisch artiest en het 
maken van achtergronden op de Amiga 
kost naast inzicht ook veel tijd. Free Spirit 
software doet in deze een aantal aardige 
voorzetjes in de vorm van tekst-achter- 
gronden en animatiescenery. In het pak¬ 
ket Media Line Video & Animation zitten 
twee diskettes met 30 afbeeldingen voor 
computer-slideshows, businesspresenta- 
ties, video- en kabel-TV. De beelden zijn 
in het PAL 352 x 552 overscan-formaat 
zodat u hen direkt van de Amiga op tape 
kunt ovememen. Het gebruikte kleuren¬ 
palet is de VideoScape 32 kleurenstan- 
daard. Ook is weergave in de HAM-mo- 
dus mogelijk. 

De eerste diskette bevat achtergronden 
voor teksten en wat scenery-voorbeelden. 
Op de tweede diskette staan structuren en 
High-Tech-platen. Allen goed bruikbare 
afbeeldingen. Het blijft natuurlijk altijd 
de vraag of u er iets mee kunt. Wat de een 
mooi vindt is voor de ander niet geschikt. 
Daarom raad ik u aan deze diskettes eerst 
te bekijken alvorens hen voor circa ƒ 80,- 
aan te schaffen. 


Media Line Clipart 

Enkel tekst blijft ook bij desktoppublis¬ 
hing een saai gebeuren. Een plaatje er bij 
maakt de tekst leesbaarder en streelt oog 
plus geest. DTP-plaatjes kan men zelf te¬ 
kenen met een paintpakket, met een scan¬ 
ner of digitizer van een bestaande afbeel¬ 
ding naar het Amiga-RAM kopiëren of 
uit een plaatjesbibliotheek laden. De Me¬ 
dia Line Clipart-disk van Free Spirit soft¬ 
ware is zo’n plaatjesbibliotheek. 

Net als bij andere gelijksoortige beeldbi- 
bliotheken bevat deze Clipart-schijf 
zwartwit plaatjes over veel gebruikte on¬ 
derwerpen. Bijvoorbeeld over: 
Feestdagen; kerstmis, kadootjes, engel, 
drie koningen, nieuwjaar, klokken en een 
kaars 

Mensen; vrienden, moeder, filmkijkers, 
student, feestgangers, gedigitaliseerde 
filmsterren en bijbelverkopers 
Sprookjesfiguren; heks, tovenaar 
Sporten; diverse sporters 
Vlieg- en voertuigen; van zeilboot en 
stoomtrein tot spaceshuttle en helicopter 
Voedingsmiddelen; kreeft, pizza, fast 
food, dranken, groenten 
Dieren; olifant, leeuw, tijger, poes, e.d. 
Infanterie met tanks 

Dit clipartpakket ligt bij uw softwaredea- 
ler voor rond de ƒ 80,-. 
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